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Primeros 
p0505  '." 
Tal vez los 6rdenes mds mlteriosas y enigmdticas 
de/Basic, para el principiante, sean /as temidas 
¢¢PEEK y ¢POKE. 
(uizds la raz6n sea que se dirigen al mane/o 
directo de la memor/a, y que, usadas 
ind/scriminadamente, ¢cuelgam al ordenador 
con gran fadlidad, especialmente /a arden 
¢POKEx 
Primeros Pasos consigue clue de/en de ser 
enigmStkas. 

En casi todos los/uegos, y en muchos 
programas, ¢serios; es necesario recurrir a la 
generaci6n de nmeros a/eatorios; una vez ross, 
en Bask resulta sencillo, pero si queremas obtener 
un mSximo de ve/ocidad y un minima de ocupaci6n 
de memoria, hay que tirar del lenguaje mSquina. 

Serie oro 
Grupo de Asalto es una exce/ente aventura con 
cast#los y laberintos, que mantiene muy atlas/as 
cotas de emoci6n e interns. 

ProgramaAcci6n 
Tamaos de/etras permite usar en el Amstrad 
una fadlidad que s61o tienen ordenadores de 
mucho mayor precio, coma el Madntosh, e/ Amiga 
o el Atari, a saber: una rutina que trata los 
caracteres como ma#as de bits y permite 
cambiarlos de tamafio a voluntad. 

Para... PCW 

Presentamos un panorama genera/de/munda 
del PCW. Trucos, noticias y mucho mgs. 
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UEVA 
A VENTURA 
DE DINAMIC 

iglo XXV. Los gue- 
rreros del planeta Kindos han ataca- 
do la Tierra, raptando a la princesa 
Doxaphin y robando todas las riqueo 
zas del Palacio Imperial. 
El gran emperador Cophenix II Se- 
fior de los reinos Normax y Dinax, 
ha encomendado la misi6n de resca- 
tea su fiel vasaNo Mirdav, que reci- 
bit6 como recompensa por su 6xito 
la mano de la princesa y la mitad del 
fabuloso tesoro como dote. 
Para conseguirlo tendr6s que pe- 
netrar en el Castillo Kindos y enfren- 
tarte con valentia a numerosos ene- 
migos que intentar6n hacer fracasar 
tu misi6n. 

La clave del 6xito reside en tu ar- 
ma la joya ms preciada del Impe- 
rio: la espada SGRIZAM, vencedo- 
ra en rail batallas, forjadora de le- 
yendas, inspiradora de pasiones. 
Deja que su poder te guie en esta 
fant6stica aventura. 
TUS ENEMIGOS 
Atravesar los pasadizos del Casti- 
IIo Kindos no es un paseo precisa- 
mente. 
Te verbs acechado por araas gi- 
gantes, serpientes de colmillos leta- 
les, ratas enormes, patos zombies, 
esqueletos mutantes, afilados cuchi- 
Ilos voladores, etc. Todos los ingre- 
dientes para valorar mucho cu61 se- 
rc tu siguiente paso. 
Cuando m6s seguro est6s de ha- 
berte librado de una rata, probable- 
mente un cuchillo atravesar limpia- 
mente tu yugular. 
Cuando m6s convencido est6s de 
escapar al ataque de patos y esque- 
letos, te encontrarcs ensartado por 
un sable enemigo. 
Este Castillo, puedes tener la cer- 
teza, no es un hotel para el reposo. 

NOVEDADES DE ERBE 

los nuevos juegos, 
deliciosamente distintos, presenta 
ERBE soft como novedades: 
fres Lutes de Glaurung)) y Desert 
Fox. El primero consiste en una ex- 
celente aventura grfica, en la que 
el protaganista se introduce, arma- 
do s61o con su espada, en I tenebro- 
so castillo del Se6or del Mal. Le ace- 
chan multitud de peligros, pero 61 de- 
be conseguir las tres luces y salir del 
castillo. Estamos ante un excelente y 
entretenido juego de aventuras. 
El segundo de ellos, Desert Fox, 
versa sobre la famosa batalla del de- 
sierto entre Rommel y Montgomery, 
en la Segunda Guerra Mundial. Es- 
ta vez, asumimos el papel de <<Lobo 
Solitario>>, un ingl6s sobre el que des- 
cansa la ardua tarea de detener el 
aparentemente imparable avance de 
las tropas nazis. Por Io menos, la aco 
ci6n est6 asegurada. 



OFERTA ESPECIAL i ANIVERSARIO 

, me 

Grat: 

Suscribete ahora a Microhobby Amstrad, o realiza tu 
renovaci6n, y recibir6s, totalmente gratis, un regalo de 
excepci6n: una suscripci6n a Amstrad Cassette pot 
seis meses. 
Cada cinta contiene los programas publicados por 
Microhobby Amstrad durante un mes. 
Todos los programas de nuestras cintas se 
encuentran desprotegidos, con el obieto de 
facilitar su copia en disco y la revisi6n de los 
listados. 

En cada cinta encontrarbs: 
-- Apasionantes juegos Ilenos de acci6n y dinamismo. 
 Utilidades con las que sacar mayor paido a tu ordenador. 
 Rutinas en c6dlgo m6quina, poro que los ulilices en tus propos programos. 
 Y pequehos trucos de programaci6n, para que, poco a poco, 
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amos air ahora en senti- 
do contrario. Puesto que 
la escritura en memoria ya no tiene ningOn se- 
creto para nosotros, vamos a intentar 
el contenido de una de as celdillas que la for- 
man. Con PEEK Io con eguiremos. 
PEEK es la sentencia complementaria de PO- 
KE. "i ,"iearros: 
POKE 20000,42 
seguido de RETURN estamos almacenando en 
la direcci6n de memoria 20000 el nOmero 42. 
Es decir, el ordenador coge el 42 y Io guarda 
en la posici6n identificada como 20000. Y si 
ya teniamos algOn valor almacenado en ese 
lugar,/,qu ocurrir6? 
Todos los bytes tienen alguna inFormaci6n, 
aunque sea cero. Cuando intentamos cambiar 
esta informaci6n por otra (,t2 en e/e/emplo 
anterior) simplemente ocurre eso: el nuevo va- 
lor se almacena y el antiguo se destruye. 
Asi que con: 
POKE 20000,42 
sustituimos el nOmero que estuviera almace- 
nado en la direcci6n 20000, borr6ndolo y anu- 
16ndolo, por el nuevo (42). Pero, ,estamos 
seguros de que realmente ha cam- 
biado el contenido de esa posici6n? 
Ve6moslo. 
Teclee ahora: 
PRINT PEEK (20000) 
y, ivaya!, en la pantalla acaba de aparecer 
el 42 que anteriormente habiamos guardado 
en ese lugar. 
Escriba a continuaci6n: 
POKE 20000,127 
Te6ricamente, al menos, en esta ocasi6n el 
byte 20000 de la memoria contendr6 un nO- 
mero binario equivalente al decimal 127. ,Lo 
¢omprobomo$?, ya sabemos hacerlo, 
,no? Simplemente escribiendo: 
PRINT PEEK(20000) 
vemos Io que ha ocurrido. Ya no se visualiza 
el nOmero 42 como antes ocurri6, sino que se 
ha cambiado por el 127, que es el Oltimo va- 
lor almacenado en la direcci6n 20000 por me- 
dio de una instrucci6n POKE. 
Concretemos todo esto. La instrucci6n PEEK 
nos permite investigar dentro de la memoria 
y ver qu6 es Io que contiene. La forma gene- 
ral de esta funci6n es: 
P E E K(direcd6n] 
y nos devuelve el valor del dato almacenado 
en la posici6n de memoria especificada en 
cdirecci6m). 
Este par6metro puede ser cualquier nOme- 
ro entero comprendido entre 0 y 65535, .re- 
.s6.d88Y AMSTAD 

cuerda por qua? Si no fuera asi le reco- 
mendamos que eche un vistazo a nuestro ar- 
ticulo anterior y seguro que Io entender sin 
ningOn problema. Le suena de algo un <<re- 
gistro de direcciones compuesto por 2 
bytes-16 bits? 
Qu6 ocurrir6 si intentamos ver Io que hay 
en una posici6n de la memoria mayor de 
65535? No se quede ahi parado. La mejor for- 
ma de comprender exactamente c6mo funcio- 
na una instrucci6n y todas sus limitaciones es 
tomar los mandos de su Amstrod y compro- 
barlo sobre sus propias teclas. Pues escriba: 
PRINT PEEK(70000) 
por ejemplo. El valor de la direcci6n sobrepasa 
el limite que habiamos puesto, 
Bueno, pues ahora en la pantalla no apa- 
rece un nOmero que indique el contenido de 
esa posici6n, sino que el Amstrod Io ha cam- 
biado por un mensaje de error: 
Overflow 
Con 1 nos est6 indicando que se ha produ- 
cido un <rebosamiento de Io que Ilamamos 
registro de lrecclone$, o sea que he- 
mos intentado Ilegar hasta una memoria que 
sobrepasa la capacidad de direccionamiento 
de nuestro ordenador (5535). 
La funci6n PEEK nos devuelve un nOmero 
que est6 comprendido entre 0 y 255. Tenga 
en cuenta que se trata del dato almacenado 
en un byte (8 bits) y la mayor cantidad que 
puede representarse con 8 digitos binarios es, 
precisamente, 255 tal como vimos. 
Por ser un valor num6rico, podemos hater 
con 61 todas las operaciones que el Amstrad 
permite realizar con nOmeros. Por ejemplo, se- 
ria v61ido asignar el contenido de una posi- 
ci6n de memoria a una variable num6rica: 
contenido = PEEK(2DD) 
y a continuaci6n: 
PRINT contenido 
tambi6n poner como par6metro de PEEK el 
contenido de una variable. Las dos instruccio- 
nes anteriores podrian convertirse en: 
direcci6n = 20000 
seguido de: 
contenido = PEEKdirecd6n] 
Y 
PRINT contenido 
donde direccim es, precisamente, la va- 
riable donde est6 guardado el valor de la di- 
recci6n cuyo contenido queremos investigar. 
Siempre podremos realizar cualquier ope- 
raci6n matemtica con el valor entregado por 
PEEK. Seria posible calcular el resultado de: 
resultado = 256* PE EK(direcci6n) 
PRINT resultado 
sin que nuestro Amstrod se sienta molesto 
y nos obsequie, como tan frecuentemente ha- 
ce, con un mensaje de error. 
Esta facilidad es la que nos permitir6 alma- 

cenor nOmeros mayores de 255 que era el li- 
mite, no? Supongamos que queremos alma- 
cenar el ngmero256. Es evidente que siem- 
pre ocurrir6: 

256 = 255 + 1 



PerocalculemosestenOmeroen binario.Se 
atreve a hacerla suma? 
255 = 11111111 
1 = 00000001 + 
256 = 100000000 

Asi que, resulta que 256 traducido a bina- 
rio es un 1 seguido de ocho ceros, Io que im- 
plica que si un byte contiene 255 y le suma- 
mos 1, en lugar de almacenar el 256 comen- 
zaria a contar otra vez desde cero a la vez 
que dejaria par abandonada una unidad de 
novena arden que no tendria cabida en 61. 
/.Glu hater? 
Pues tomar una sabia decisi6n: no abando- 
narla sino guardarla en la siguiente posici6n 
de la memoria. No estamos para desperdiciar 
nada. Lo que estamos hacienda es utilizar olra 
direcci6n para almacenar un valor que se ir6 
incrementando en una unidad cada vez que 
la olra, la primitiva, comienza a cantor de nue- 
VO par cero. 
Elijamos para este fin la 20000 y la 20001. 
Quedamos que la primera contendria el byte 
compuesto par los 8 ceros, luego: 
POKE 20000,0 
y la siguiente Ilevaria el 1 que nos ha sabra- 
do, pues, iadelante!: 
POKE 20001,1 
guardaria un 1 indicando que tendriamos alli 
una unidad de novena arden coma antes diji- 
mos. t', ;,cul es el valor decimal de es- 
tas unidades? A calcular tocan. 
2.8 = 256 
Lo mismo ocurrir6 con el resto de cifras de 
este byte (el20001): que su valor relativo ir6 
multiplicado par 256. 
Para conseguir leer correctamente la infor- 
maci6n que hay almacenada en estas dos di- 
recciones tendremos que operar de la siguiente 
manera: 
dato= PEEK(20000)+ 256* PEEK(20001) 
para despu6s imprimirlo con: 
PRINT data 
e inevitablemenle se visualizar6 el 256 que an- 
dbamos buscando. 
Con todas estas premisas podriamos seguir 
contando en la direcci6n 20000 partiendo de 
cero coma si no hubiera pasado nada y utili- 
zar la siguiente, la 20001 para anotar el nO- 
mero de veces que la primera alcanz6 el va- 
lor 255. 
Repetimos. La primera direcci6n es una es- 
pecie de contador donde se van anolando 
meros cornprendidos entre 0 y 255 y se le lla- 
ma Byte menos significativm. Lo se- 
gunda Io que hace es coma si fuera contar de 
256 en 256, ya que se incrementa cuando la 
primera sobrepasa 255. Se la conoce coma 
Byte mcis significativm. 
Buena, LY para qu6 vale todo esto? 
iAh!, no a quedado clara cu61 era el fin de 
nuestro trabajo. Es bastante evidente que Io 
que prentendiamos era intentar almacenar di- 
rectamente en la memoria nOmeros mayores 
de 255 y modestamente creemos que siguien- 
do este m6todo Io vamos a conseguir. 
Para guardarlo, partiremos el ngmero pa- 

ra poder colocarlo en dos direcciones de me- 
maria. Una tendria el nOmero de veces que 
contiene 256: aqu[ tenemos una pista. Si ha- 
cemos la divisi6n entera del nOmero entre 256 
ya sabemos el valor que habr6 que almace- 
nor en el byte ms significativo. 
Elijamos el nOmero, le parece? Las direc- 
ciones ser6n los ya conocidas 20000 y 20001. 
Se acuerda del valor m6ximo que se puede 
almacenar en 16 bits ('6 2bytes coma en ete 
caso). La respuesta es 65535. Sin problemas, 
&a? Pues tomemos uno al azar: 23456. 
nOmero=23456 
Calculamos los veces que contiene 256 con: 
m6s=23456/256 
y Io almacenamos en la direcci6n del byte m6s 
significativo mediante: 
POKE 20001 ,m6s 
Nos queda ahora el otro, el menos signifi- 
cativo, pero tan imporlante coma el anterior. 
Contendr el resto de dividir el nOmero entre 
256. LLo calculamos? 
menos= nOmero MOD 256 
y a continuaci6n ]o almacenamos, no? 
POKE 20000,menos 
Estar6 de acuerdo con nosotros queen es- 
te momenta tenemos guardado el nOmero en 
dos posiciones de memoria, la 20000 y la 
20001 y que, par tanto, hemos conseguido 
nuestro objetivo: almacenar nOmeros mayo- 
res de 255. 
De manera que <es menester>> genera- 
lizar este proceso a cualquier cantidad y a 
cualquier direcci6n. Para guardarlo en la me- 
maria daremos los siguientes pasos: 
a) Calcular la cantidad de veces que el nO- 
mero contiene 256 y almacenarlo en el byte 
m6s significativo. 
POKE direcci6n+ 1, nOmero/256 
b) Introducir el resto de la divisi6n entre el 
nOmero y 256 en el byte menos significativo. 
POKE direcci6n, ngmero MOD 256 
Y todo resuelto, ya Io tenemos a buen re- 
caudo. 
LC6mo realizar el proceso contra- 
rio? Ahora queremos sacar la informaci6n de 
dos bytes. Resumamos el proceso: 
a) Tomar el contenido del byte m6s signi- 
ficativo y multiplicarlo par 256. 
b) Sumar el resultado obtenido al valor que 
est6 almocenado en el menos significativo y 
ya tendremos en nuestras manos el nOmero 
que necesitamos. 0 Io que es Io mismo: 

COHOeer AMSTRAD 9 



nOmero--256*PEEK(direcci6n+ 1)+ 
PEEK(dire¢¢i6n) 
Recuerde queen dos bytes s61o se pueden 
uardar nOmeros comprendidos entre 0 y 
5535 asi que no intente repetir este proceso 
para nOmeros mayores ya que se Ilevar6 al- 
guna que otra desagradable sorpresa. 
Y como colof6n a todas estas parrafadas va- 
mos a efectuar un breve an(lisis a un progra- 
ma que pone en pr6ctica casi todo Io que he- 
mos visto a lo largo del articulo. Tambi6n nos 
hemos auxiliado un poco del antiguo Progra- 
ma I de nuestra anterior reuni6n, pero sola- 
mente para seguir su misma forma y estructu- 
ra. 
;,Qu conseguimos con 17 Aparente- 
mente nado, s61o vamos a ((andar pot la 
memoria tal como dice su titulo. Lo explora- 
remos en todas sus direcciones y a Io mejor 
hasta nos atreveremos a modificar alguno de 
sus ((bytes aver qu6 paso. En caso de que 
la ejecuci6n del programa se detenga peligro- 
samente, recuerde, apague el ordenador y co- 
mience de nuevo: no se le ha estropeado. 

Programa uno 

Su estructura es muy sencilla. Costa de un 
programa principal, que ser6 el que dirija el 
(cotarro, y de una serie de rutinas cuya 
misi6n es realizar unas tareas muy concreti- 
tas y sencillas. 
Vamos con el programa principal. Comien- 
za en la linea 10 y Io primero que hace es Ila- 
mar a una rutina que inicializar6 la pantalla, 
los distintas ventanas de texto y todo Io que 
sea necesario, iAh!, su primera linea es la 
5000. 
A continuaci6n vamos a otra rutina IGO- 
SUB 6000) que se encargar( de visualizar- 
nos el menO de los opciones de que dispone- 
mos. Pero adem6s nos permitir( elegir una de 
elias para que el programa dea o escri- 
ba en cualquier posici6n de la memoria del 
Amstrad. 
Despus de una serie de instrucciones, que 
imprimen la cabecera de un informe, tras ha- 
bernos decidido por una de los opciones (h'- 
neas 40 a 60], nos metemos en un bucle sin 
fin que nos permitir6 manejar todas los direc- 
ciones de memoria que deseemos sin tener que 
comenzar de nuevo la ejecuci6n del progra- 
ma. Es el limitado entre los lineas 70 y 130. 
Y, Lquf es Io que se hace en su in- 
terior? Sig6mosle paso a paso. En la Iinea 
80 se nos pide la direcci6n a tratar y el valor 
que nosostros tecleamos Io almacena en la va- 
riable ¢(direcci6n. 
Si no es correcto, pone un aviso de error y 
le da el tipo nOmero 34. Esta es una de los ca- 
racteristicas m6s importantes de este progra- 
ma: nosotros mismos gestionamos como un 
error los datos que no est6n de acuerdo con 
los caracteristicas especificadas (en este caso 
estd comprendido entre 0 y 65535). 
Con el EN...GOSUB de la 100 desviamos 
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11) R PROGILtA I 
28 GOSUB 5888:R INICIALIZAR 
38 GOSUB 6888:R MU 
4@ CLS 
58 PRINT'DIRECCI' ,'CONTIDO' 
68 PRI ........... , ........... 
78 WHILE -I 

81 INPUT 82,'OIRECCI (9999?-FIN): 
',direction 
91 IF direction<8 OR direccion)65535 
TH canal=2:ERROR 34 
188 OH option GOSUB 188,2988 
Ill PRINT IlIdireccioncontenido 
128 CLS #2:CLS 13 
138 WEND 
118 R LECTU 
1111 conten ido=PEEK(direccion) 
I129 RETUI@I 
2818 REN ESCRITORA 
2111 INPUT 13,'COtiTENIO0: 'cofltenJdo 
2121 IF cotenido(g OR contenido)255 
THEN cana1=3:ERROR 35 
2838 POkE direccion,contenido 
2148 RETU 
3811 REM RUTINA I'RATAMIENTO DE ERROR 
3811 IF direccion=PP99 THEN RESLIIE 3 
I 
38 CLS Icanal 
3138 IF ERR=-33 THEN RESLIE 38 
3848 IF ERR=34 THE]W PRINT 12,'OIRECC] 
 INCORREL'TA' :@OSUB 411g:RESIJE 81 
3151 IF ERR=35 THEN PRINT 13/OATO IN 
CORRECIO' .'@OSDB 4111 :RESIE 2118 
4000 R RUTI BE R'TAIX) 
4116 FOR i=1 TO Itli:HEXT 
4129 CL$ Icanal 
4136 RETI,I 
5181 RB4 IHICIALIZACI 
5018 OH ERROR GOTO 3811 
5129 Hl)OH 111,41,422 
5639 WINDI/A 12,1,4,24,24 
5141 WItX]W 13,1,46,25,25 
556 RETLgI 
6108   
6111 CLS:CLS II:CLS 12:CLS 13 
6129 LOCATE 8,6 
6138 PRINT'OAOURA POR LA MEMOR]A' 
6148 LOC4TE 8,7 
615 **************************** 
6168 LOCATE 13,9 
6871 PRINT'I.- LEER' 
6t8 LOCATE 13,11 
6198 PRINT'2.- ESCRIBIR' 
618 LOCATE 12,14 
6118 INPUT'ELIGE OPCIOH: ',option 
6128 IF option(! OR option)2 THEN ERR 
OR 33 
6138 RETUt 

la ejecuci6n del programa hacia la rutina de 
¢lectura o ¢¢escritura, segOn la opci6n 
elegida. 
Ya Io Onico que nos queda para terminar el 
bucle es visualizar la direcci6n y et contenido 
de la misma (/inea 110) y limpiar el resto de 
los ventanas definidas (120). 
Puede ir usted mismo analizando todas las 
rutinas que emplea este programa. Para no- 
sotros, ya Io hemos dicho, Io m6s importante 
es el tratamiento que da a los errores cometi- 
dos al teclear los datos. 
Por ejemplo, en el rutina que genera el me- 
nO de opciones, .entre qu valores po- 
demos escoger? Dos opciones, dos valo- 
res: 1 y 2. ,De acuerdo? Pot eso en la li- 
nea 6120 decimos que se ha producido el error 
33 en el caso que la variable (opci6n no 
contenga uno de estos valores. 
Y algo seme ante ocurre en la 2010, donde 
determinamos que se dae error 35 cuando 
el valor que pretendemos introducir en un byte 
est6 fuera de los mrgenes permitidos 
(o.:zss). 
Cuando se produzca un error, ,ha¢ia 
donde se desviar la ejecu¢i6n del 
programa para tratarlo convenien- 
temente? 
Observe la linea 5010: 
5010 ON ERROR GOTO 3000 
Bueno, pues nuestra pregunta ha quedado 
ya contestada: hacia la rutina de tratamiento 
de error que comienza en la Iinea 3000. 
Ya estamos colocados ahi. ,Ahoro qua? 
Primero investigaremos si Io que ocurre es ver- 
daderamente un error o es que estamos indi- 
condo al Amstrad que determine el proce- 
so que tiene entre manos. Si es asi, nos vuel- 
vea presentar el menO para continuar nues- 
tro traba o. Recuerde que 99999 es el valor 
de dire¢in e egido para tal fin. 
En caso controrio, analiza el tipo de error. 
Si es el 33 entiende que nos hemos equivoca- 
do en la (op¢i y nos devuelve otra vez 
al menO para que Io hagamos correctamen- 
re. 
Cuando sea el 34 decidimos que la direc- 
ci6n que pretendiamos trator no era correc- 
to. Bueno, nos informa del hecho y nos da una 
nueva oportunidad reanudando la ejecuci6n 
del programa en la linea 80 (RESUME 80). 
$61o nos queda ver qu ocurre cuando el ti- 
po de error sea 35. Sencillo, el dato que que- 
remos almacenar en un byte no est6 compren-" 
dido entre 0 y 255. El Amstrad nos avisa y 
devuelve el control de la linea 2010 donde se 
nos pedir6 un nuevo valor. 
Sencillo, verdad? Lo Onico que se necesita 
es un poco de pr6ctica para ver cl6ramente 
la manera de tratar este tipo de errores de un 
modo simple, pero a la vez atando todos los 
cabos. 
Y nada m(s. Recuerde: 
POKE = H U RGAR 
PEEK=HUSMEAR 
En sus manos los dejamos. 



DESPUE$ ' 

El Basic Locomotive es multitorea, es decir, permite realizer 

m6.s de una subrutina (a un tiempo>>. Realmente, esto no es 
asu la elecuc,on es secuencial, solo que, tan rap da, que a 
nosotros nos parecer6 simult6nea. 

par Jos6 Maria Diaz 

ay dos formos de usor es- 
ta sorprendente facilidad del Basic Amstrad: 
la sentencia EVERY y la sentencia AFTER. 
Esta Oltima permite que, despus de trans- 
currido determinado tiempo, el Basic bifurque 
a determinada rutina, la ejecute, y 
ne) a la que estaba realizando inicialmente. 
Coma el Amstrad posee 4 temporizadores, 
podemos diar) a 4 rutinas m(h el progra- 
ma principal de esta forma. 
El programa de esta semana muestra tan s6- 
Io los posibilidades que se esconden tras la sen- 
tencia AFTER. 
Sugerencias para aprovecharla se nos ocu- 
rren, asi, a bate pronto, ver qu6 ha pasado 
con la puntuaci6n de un juego despu6s de un 
tiempo, o comprobar la pulsaci6n de cierta te- 
cla. Seguro que vuestra imaginaci6n as suge- 
rir6 varios cientos de aplicaciones m6s. 

En fin, vamos a estudiar el programa con 
detalle. 
! 0-:10 La usual sarta de REMs indi- 
condo de qu6 va el programa. 
,30 Elecci6n del modo de pantalla: texto m6s 
clara y un CLS gratis cada vez que se ejecuta. 
40 Inicializaci6n de las variables <sum, 
rutina y flag)h El Amstrad las pondda 
a cero 61 solito, pero es una buena pr6ctica 
de programaci6n indicar explcitamente los co- 
SOS. 
50--80 Orden a la m6quina de preporar 
los 4 temporizadores (0 a13) y ejecutar las ru- 
tinas 1-4 una vez transcurrido un tiempo, que 
se indica en unidades de 1/50 segundos. Asi, 
en la linea 50 se le dice al micro que salte que 
salte a la rutina de la lineal90 despus de que 
hayan pasado 5 segundos (250 unidades de 
1/..70), y se asigna todo esto al temporizador 
cero. 
90--100 El usuario se entera del asunto. 
Mientras los 4 rutinas aguardan para ejecu- 
tarse, el programa principal sigue funcionan- 
do. 

! 20--140 El ((programa principab. 
En este caso, se limita a incrementar el valor 
de Io variable (sum, hasta que el valor de 
Cdlag)x cambie, cosa que ocurrir6 cuando se 
ejecute la rutina 4. 
160--170 Fin. El programa principal s6- 
Io Ilega aqui cuando dlag) vale 1. 
180 Detiene el programa. Pruebe aver qu 
pasaria si se quita; merece la pena. 
i 90--230 Primera subrutina, Ilamada cuan- 
do han transcurrido 5 segundos PARA EL TEM- 
PORIZADOR CERO. En este momenta, el bu- 
cle WHILE...WEND de las lineas 120-140 se 
((duerme)), 
240--390 Lo mismo para los otras tres ru- 
tinas. 
380 Flag se pone a uno. Condici6n de sa- 
lida para el programa principal (lneas 
0-0). 

, c*oov AMSTRAD I I 



UM RO$ 
' LEATORI.$ (y II) 

En este cap[tulo vamos a tratar de una fu..nci6n cue resulta 
vital a la hora de confeccionar cualquier hpo de luego, pero 
aclem6s para aquellos que no les interesen los juegos, hemos 
aprovechado este tema para hater una pequeha introducci6n 
a la inteligencia artificial clescle lenguaje m6quina. 

12 coo AMSTRAD 

a funci6n en si se 
trai'a de aquella clue es caoaz de ge- 
nerar nOmeros oleaforios. 
Desde Basic paro la generoci6n de 
nOmeros aleatorios, disponemos del 
siguiente comando: 
RND 
que puede utilizarse o bien solo o 
acompaado de: 
RANDOMIZE 
Ahora bien, cuando nos movemos 
al nivel del lenguaje m6quina, no dis- 
ponemos de ninguna Ilamada al 
firmware que nos proporcione este 
tipo de nOmeros, por Io que debemos 
crear una rutina que sea capaz de 
producir dicho nOmeros. 
Por supuesto, nuestra rutina nun- 
ca ser6 tan eficaz como la que po- 
see el sistema, aunque debemos de- 
cir que esta Oltima tampoco es per- 
fecta, ya que los nOmeros aleatorios 
que genera no Io son realmente, peo 
rose obtiene una buena aproxima- 
ci6n. 
Para la confecci6n de nuestra ru- 
tina nos ayudaremos del reloj inter- 
no que contiene el ordenador. 
Dado que no conocemos los datos 
que contiene el contador interno, de- 
beremos Ilamar a una rutina del firm- 
ware que los proporcione, 6sta es la 
siguiente: 
PROPORCIONA EL TIEMPO 
TRANSCURRIDO. #BDOD 
Nos da el tiempo transcurrido des- 
de que se ha enchufado el ordena- 
dOro 
Condiciones de entrada. 
No se precisan. 
Condiciones de salida. 
Los registros DE y HL contienen el 
valor del contador (D contiene el 
byte mds significativo y L el menos 
significativo). Se preservan los dem6s 
registros. 
El contador del reloj se incremen- 
ta cada 1/300 segundos, esto se pro- 
duce en cada interrupci6n que pro- 
voca el sistema. Asi pues, tomando 
los dos bytes menos significativos del 
contador del reloj, construimos nues- 
tra rutina de n0meros aleatorios. 
En nuestro caso deseamos obtener 
n0meros aleatorios entre 0 y 128, 
por Io que deberemos delimitar el 
valor que nos proporcione dicho 
contador. 



Para ello podemos proceder de la 
siguiente forma: 
CALL #BDOD 
LD A,L 
XOR H 
AND 127 
INC A 
De esta forma, en el acumulador 
estaria almacenado el n0mero alea- 
torio obtenido. En este caso hemos 
realizado una operaci6n XOR en- 
tre los bytes menos significativos del 
contador, pero podriamos haber uti- 
lizado cualquier otra como Oii o 
Vamos a centrarnos ahora en el 
programa que hemos preparado en 
Basic ,y qu.e hemos traducido a c6di- 
go maquma. 
Se trata de un juego, en el cual el 
ordenador intentar6 adivinar un n0- 
mero que nosotros hayamos pensa- 
do previamente. 
El proceso del juego seria e) 
guiente: 
1. Pensamos un n0mero. 
2. El ordenador nos da un resul- 
tado: 
-- Si el resultado es el n0me- 
ro pensado por nosotros, 
se termina el juego. 
-- Si el resultado es distinto, 
deberemos indicarle con la 
tecla de cursor, si nuestro 
nOmero es mayor o menor. 
3. Se calcula un nuevo nOmero y 
retorna a la fase 2. 
Para indicar al ordenador si nues- 
fro nOmero es mayor o menor al que 
se ha pensado, utilizaremos las teclas 
del cursor de la siguiente forma: 
Cursor arriba: para indicar que el 
n6mero que hemos pensado es mayor. 
Cursor abajo: para indicar que el 
n6mero que se ha pensado es me- 
nor. 
En realidad un juego de este tipo 
si Onicamente estuviera basado en la 
generaci6n de nOmeros aleatorios, 
no tendria ning0n aliciente, ya que 
el ordenador podria adivinar nues- 
tro nOmero en la primera jugada o 
bien despu6s de muchisimos intentos. 
Ahi es donde radica la diferencia 
entre la pura aleatoriedad y la inte- 
ligencia artificial o la capacidad de 
pensar> de nuestro ordenador a 
trav6s de una serie de algoritmos que 
hayamos introducido en nuestro pro- 
grama. 
As/ pues, nuestro programa est6 
dotado de un pequeo ¢erebro)) 
basado en dos algoritmos diferentes, 
con el cual ser6 capaz de adivinar el 
n0mero que hayamos pensado en un 
nOmero no superior a ocho jugadas. 

Para ello nuestra rutina toma un 
primer nOmero al azar, que es pro- 
porcionado por la rutina aleatoria 
anteriormente citada. 
Seguidamente coloca los topes su- 
perior e inferior en dos variables: 
SUPREM...128 INFIM...0 
A partir de este momento el pro- 
grama actuar6 de forma diferente 
seggn le indiquemos que el nmero 
pensado a superior o inferior al que 
nos ha dado en 01timo trmino. 
Si el nOm'ero indicado por el orde- 
nador es mayor al n0mero a adivi- 
nat, entonces efectuar6 el siguiente 
proceso: 
-- Actualizar6 la variable <SU- 
PREM colocando en ella el n0mero 
actual. 
-- Calcular6 la diferencia entre los 
valores indicados por INIM y di- 
cho nOmero. 
-- Dividir6 dicha diferencia por 
dos. 
-- Y por 01timo se restar6 ese va- 
lor al Oltimo ngmero, obteniendo de 
esta forma el nuevo valor. 
Escrito en lenguaje m6cjuina, nos 
quedaria de la siguientetorma: 
INFER: LD B,A 
LD,A(NUMER) 
LD (SUPREM),A; Repone el valor 
superior 
SUB B; Dif. entre NUMER e INFIM 
SRL A; Divide la dif. por dos 
LD A, (NUMER) 
SUB B; Resta la dif. al nOmero ant. 
LD (NUMER),A; Se obtiene un nue- 
vo valor 
RET 
Cuando el nOmero indicado por el 
ordenador sea el menor al que se 

18 MODE 1 
28 LOCATE 5IS:PRINT "PIENSA UN I,IUFI 
ERQ Y PULSA UNA TECLA" 
3 GOSUB 
40 MODE i 
58 N=INT (RNDI27>+|:INFIM-0:SLIPREM 
=128 
&8 GOSUB 128 
78 IF INKEY(8)-0 THEN 288 
88 IF INKEY(2)-8 THEN 22e 
98 GOT0 78 
188 WHILE'INKEY$ ..... :WEN0 
|18 RETURN 
128 LOCATE 18IS:PRINT 'EL NUMER0 E 
S: 'IN 
138 LOCATE 5,13:PRINT " ( 
S/N) 
148 IF INKEY (8)-8 THEN EN0 
158 IF INkEY (4&)=8 THEN 178 
10 GOT0 
170 LOCATE 5I3:PR]NT "TU NUMER0 ES 
MAYOR "jCHR$(248>;" 0 MENOR 
(241) 
188 RETURN 
18 RETURN 
2e8 INFIM-N:N=N÷INT((SUPREH-N>/2) 
218 GOT0 
228 SUPREM N:N N-INT(N-INFIM)/2) 
238 GOT0 

,1" 0 

haya pensado, se proceder6 como 
sigue: 
-- Se actualizar6 la variable 'IN- 
FIM' colocando en ella el Oltimo va- 
lor. 
-- Se calcular6 la diferencia entre 
los valores indicados por 'SUPREM' 
y el nOmero actual. 
-- Dividir6 dicha diferencia por 
dos. 
-- Y finalmente se sumar6 al va- 
lor actual, obteniendo asi el nuevo 
n0mero. 
Asi se escribiria dicho procedimien- 
to en lenguaje ensamblador: 
SUPER: LD A,(NUMBER) 
LD (INFIM), A; Acualiza el valor 
inferior 
LD B,A 
LD A,(SUPREM) 
SUB B; Dif. entre SUPREM y 
NUMBER 
SRL A; Divide la dif. por dos 
LD B,A 
LD A,(NUMBER) 
ADD A,B; Suma la dif. al n0mero 
actual 
LD (NUMBER),A; Se obtiene el nue- 
vo valor 
RET 
Asi pues, mediante estos dos algo- 
ritmos, el programa ser6 capaz de 
adivinar cualquier nOmero que haya- 
mos pensado en el intervalo 1-127, 
en un m6ximo de ocho intentos. 

ctoor AMSTRAD 13 



20 
38 
40 

50 
70 
80 
90 
100 
120 
130 
140 
150 
168 RNO: 
170 
180 
19(I 
200 
210 
220 TECLA : 
238 
240 VUELV : 
250 
260 
270 NOTEI : 
280 
290 
308 
310 
320 NOTE : 
350 
36 
370 
380 SUPER : 
40 
418 
420 
438 
44 
458 
460 
470 
490 INFER: 
500 
510 
520 
530 
540 
558 
560 
57 
C,80 CHECK: 
628 
640 BUC.CH: 
658 
660 
678 

ORG #A000 
LD A,I 
CALL #SCSE 
LD HL, #850A 
CALL #8875 
LD HL,TEXT3 
CALL PRINT 
CALL #8818 
CALL #8818 
LD A,I 
CALL #8COE 
X0R A 
LD (INFIM) 
LD A 128 
LD (SLIF'REM) 
CALL #BDOD 
LD A,L 
XOR H 
AND 1 27 
INC A 
LD (NLIMER) 
CALL PINUM 
JR CHECK 
LD A o 66 
CALL #881E 
RET NZ 
)<OR A 
CALL #881E 
JR Z ,NOTE 
CALL SUPER 
JR TECLA 
LD A,2 
CALL #BBl E 
JR Z NOTEI 
CALL INFER 
JR TECLA 

LD A, (NUMER) 
LD (INFIM),A 
LD B,A 
LD A, (SUPREM) 
SUB 8 
SRL A 
LD 
LD A (NUMER) 
ADD A o B 
LD (NUMER) ,A 
RET 
LD A,(INFIM) 
LD B,A 
LD A,'(NUMER) 
LD (SUPREM) ,A 
SUB B 
SRL A 
LD B,A 
LD A, (NUMER) 
SUB B 
LD (NUMER) A 
RET 
LD HL,#O50D 
CALL #8875 
LD HL TEXT2' 
CALL PRINT 
LO A, 60 
CALL #881E 
RET NZ 
LD A,46 
CALL #B81E 
JR Z ,, BUC:CH 
LD HL, # .,0D 

CALL #88?5 
LD HL ,TEXT4 
CALL PRINT 
CALL #881 8 
CALL #8818 
JR VUELV 

710 
720 
730 
740 
750 
760 
770  
780 ; IMPRIPIE NUMEROS 
790 ; DECIMALES 
880 ; 
818  
820 PINUM: 
830 
848 
858 
860 
870 
880 
890 
900 
920 
930 CIEN: 
940 
750 
960 
970 
980 DIEZ: 
990 
1800 
1818 
1028 
1838 
1840 
1850 PINTN : 
1860 
1078 
1080 
1898 PAS: 
1108 
1110 
i 1 28 PR I NT : 
I130 
1140 
1150 
1160 
IIFA 
I 180 TE;<TI : 
1198 
1208 TEXT2 : 
1218 
1220 TEXT3: 
1238 
1240 TEXT4: 
1250 
1268 
1270 
1 280 
1298 NUMER: 
1300 SLIPREM: 
1310 INFIM: 

LD HL, #0AOA 
CALL #8875 
LD HL,TEXTI 
CALL PRINT 
LD A, <NUMER) 

SCF 
LD H,8 
LD L,A 
INC HL 
LD A,47 
LD DE,188 
I N C: A 
SSC HL, DE 
JR NC:, C:I EN 
CALL PINTN 
LD DE, 10 
INC A 
SBC HL  DE 
JR NC,DIEZ 
CALL PINTN 
ADD A, L 
C:ALL P I hlTN 
RET 
CALL #SB5A 
LD A, 47 
JR NZ , PAS 
I NC HL 
ADD HL, DE 
I NC HL 
RET 
LC, 
E:P 
RET 

A,(HL) 
255 
2 
CALL #885A 
I N C H L 
JR PRIN  
DEFM "EL NLIPIER0 ES : " 
DEF8 255 
DEFt'I " (S/N) 
DEFB 255 

18 REM *PROGRAMA CARGADOR* 
28 FOR N-&A888 TO &AI&4 
38 READ A:SLIMA-$UMA+A 
40 POKE N,A 
50 NEXT 
68 IF SUMA<>36400 THEN PRINT "ERROR 
EN DATAS" 
78 DATA 62,1,285,14188,33,18 
80 DATA 5,285,117,187,33,31,161 
90 DATA 28523116820524,187,205 
t88 DATA 24,187,62,1,28514,188 

118 DATA 175,58,99,161,62,128,5 
128 DATA 98,161,205,13,189,125,172 
130 DATA 23,127,6,50,97,161,205 
140 DATA 171,168,24,73,&2,&&,285 
158 DATA 38,187,192,175,285,30,187 
168 0ATA 48528582168,24234 
178 DATA 22285,38,18748,238 
188 DATA 28518416824222,589 
198 DATA 161,58,99,161,71,58,98 
288 DATA 161,144,283,63,71,58,97 
218 DATA 161,128,58,97,161,281,58 
228 DATA 99,161,71,58,97,161,58 
238 DATA 98,161,144,283,63,71,58 
248 DATA 97,161,144,58,97,161,281 
258 DATA 33,13,5,285,117,187,33 
268 DATA 0,161,205,231,168,62,68 
278 DATA 285,38,187,192,62,46,285 
288 DATA 30,187,48,24,33,13,5 
290 DATA 205,117,187,33,65,161,285 
388 DATA 231,160,205,24,187,285,24 
310 DATA 187,24,138,33,10,10,205 
320 DATA 117,187,33,241,168,285,231 
338 DATA 160,58,97,161,55,38,0 
340 DATA III,35,62,47,17,100,0 
350 DATA 60,237,82,48,251,205,220 
368 DATA 168,17,18,0,68,237,82 
370 DATA 48,251,205,220,168,133,205 
380 DATA 228,160,201,285,90,187,62 
390 DATA 47,32,1,35,25,5,201 
408 DATA 126,254,255,200,285,98,187 
410 DATA 3524,246,69,76,32,78 
420 DATA 85,77,69,82,7932,69 
430 DATA 83,58,32,255,32,32,32 
440 DATA 32,32,2,32,32,32,32 
450 DATA 48,83,47,78,41,32,32 
460 DATA 32,32,32,32,32,32,32 
470 DATA 32,32,32,32,32,32,255 
480 DATA 80,73,69,78,83,65,32 
498 DATA 85,78,32,78,85,77,69 
508 DATA 82,79,32,89,32,80,85 
510 DATA 83,65,32,85,78,65,32 
520 DATA 84,69,67,76,65,255,84 
530 DATA 85,32,78,85,77,69,82 
540 DATA 79,32,69,83,32,77,65 
550 DATA 89,79,82,32,240,32,79 
560 DATA 32,77,69,78,79,82,32 
578 DATA 241,255,255,0,128,0,0 

DEFM "PIENSA UN NUMER0 Y PUSA UNA TECLA" 
DEFB 255 
DEFM "TLI NLIMERO ES MAYOR " 
DEFB 248 
DEFM " 0 MENOR " 
DEFB 241 ,255 
DEF8 255 
DEFS 1 
DEFB 1 28 
DEF8 8 -r,/'. 
BUCCH A08A CHECK A07E CI EN A8C4 . / 
DIEZ AOC:F INFER A068 INFIM A163 
NOTE A046 NOTEI A838 NUMER A181  po 
PAS AOE4 PINTN ASDC PINLIM 
I tdim, AtH.AMS I 
PRINT AgE7 RND A025 SUPER A052 I ID o,e,,r I 
SLIPREM A162 TECLA A038 TEXTI AOFI I ,lm,,t,o. I 
TEXT2 AI BO TEXT AII F TEXT4 AI 41 I . W,o. I 
VUELV 

"'14 ,, C#OHOSBY AMSTRAD 



' '1 M' Itl 
NCONT  UNAI  ' P,A 
e UE LEHAGA ' 'APEL 

/\ 

%portes abatihles quc ix'rmiteit 
colocar el tapel b!jo la imprcsora. 

COmodo sistema de ca,,a ti'o, ltal 
del pal)eL 

Admire dil'erezltes anchos de palM, 
tanto co,tinuo (de. 114 a 254 ram.) 
coma ho.jas sueltas (I02 a 241 ram.) 

/,, 

 I,speciabnenre recomcmlada para ordetadores 
,IISTRAD serie Ct'C 

 Co,ectable a cualquier ordemdor ¢o, &tefface 
COlltrolliCs. 

• iblocidad de impresi& de 105 caracteres pot 
seguMo. 

 Grim aqedad de t& 
alta calidad (NLQ) - 

, r l llOrlllal, CUlY <a. 

40. 66, 80 y 132 caracteres pot colunma. 
lmpresi6n de ©",ificos plmto a punto en 

diferent es densidades. 
• 96 caracgeres ASCII y8 subjuegos 
inrernaciotes. 
GRUPO INDI:SCOHP 

CL Aravaca, 22.28040 Madrid. Tel. 459 30 01. Tlex 47660 INSC E. Fax 459 22 92. DelegaciOn en Catalufia: CL l"arragona, 110. Tel. 32510 58. 08015 Barcelona. 



q 

Los juegos de aventuras nos hacen vivir 

las ms grandes epopeyas. 
Castillos. fantasmas, laberintos. 
princesas en peligro y todo tipo de seres 
imaginarios nos amenazan y asaltan 
desde la pantalla. Grupo de Asalto es un 
ejemplo de todo esto. de Io ms vivo. 

por Daniel Calvo y Fernando Garc/a 
$61o 664-6128 

PRESENTACION: 7 
GRAFICOS: 5 
ANIMACION: 5 
ADICCION: 5 

espu6s de una pantalla de pre- 
sentaci6n, en la que se te preguntar6 si quie- 
res instrucciones, el programa te pedirc el nom- 
bre de los dos jugadores, pues este programa 
necesita el concurso de dos personas. Pasado 
este requisito de los nombres, os encontrar6is 
en la primera parte de las dos que consta este 
programa, que es el laberinto. 
Laberinto: empezar6 jugando el primer juo 
gador, aunque de todas formas en la parte ba- 
ja de la pantalla, se expondrc el nombre del 
jugador y las vidas que tiene. El laberinto tar- 
dar6 un poco en aparecer, pero no es ningOn 
problema. En el laberinto, tu prop6sito es el de 
intentar pasarlo con el mayor nOmero posible 
de vida yen el menor tiempo que puedas, pues 
s'i el cantador Ilega a cero perder6s una vida. 

A la vez, site chocas con las paredes o con tu 
propio rastro tambi6n perder6s una vida. Tam- 
bi6n ver6s que pot el camino se encuentran 
unos corazones que te darn puntos. 
Una vez que los dos pas6is este tr6mite, en- 
trar6is en el castillo. Es importantisimo el n0me- 
ro de puntos que consigas, pues de gste depeno 
de el n0mero de disparos que luego obtendr6s 
en el castillo, aunque puedes pasar sin vidas, 
pero tu n0mero de disparos ser6 muy inferior. 
Castillo: aqui el turno de juego ser6 alterna- 
tivo. El prop6sito es intentar destruir los tres 
puntos vitales de tu adversario (representados 
por tres cuadrados de color). Para poder dis- 
parar a tu contrario deber6s dar al ordenador 
dos datos: el primero ser el cngulo de dispa- 
ro que deber6 variar entre 0 y 90 y el segundo 
separado por una coma del primero, la velo- 
cidad que deber6 variar entre 0 y 100. Para 
que el mismo 6ngulo y velocidad no le corres- 
ponda el mismo disparo el orclenador eval0a 
un factor de viento que desviar6 ligeramente 
el objetivo de nuestro disparo, haciendo casi 
imposible el que se produzcan dos disparos 
iguales. 
En la parte inferior de la pantalla te apare- 
cer6 el hombre del ugador queen ese momen- 
to se ha e en poder del turno de disparo y el 
n0mero de disparos que le queda. Si ese n0- 
mero Ilega a 0 te dar6 siempre uno m6s, pero 
por contrapartida te quitar 50 puntos a tu 
marcador. 

8 :[148 'ALk ZOHE " 



10-150 Pide nombres de los 
jugadores 
160-250 Inicializa variables de] 
Jaberinto 
260-460 Dibuja castiJlo 
470-980 Calcula coordenadas 
del disparo de ambos 
ugadores 
990-1080 nicia iza variables del 
laberinto 
1090-1270 Dibuja el laberinto 
1280-1370 8ucle de lectura 
teclado 
1380-1470 Detecta si ha habido 
choque en el laberinto 
1480-1520 Oisminuye el contador 
del tiempo 
1530-1720 DATAS 
1730-1810 Borra los pasos del 
eco y disminuye vidas 
1820-1880 Come corazGn 
1890-2160 Sin vidas del jugador 1 
2170-2250 Fuera del laberinto 
2260-2650 Instrucciones 
2660-2740 Objefivo alcanzado 
2750-2990 PresentaciGn 
3000-3060 CGdigo mGquina 
3070-3180 Paso del labefinto al 
castillo 
3190-3420 Fin de la partida 
3430-3480 Sonido al salir fuera del 
laberinto 

I TAB(IB)'MAXIMO 8 LE[RAS':GOTO 12 
]48 NBRE'S]R '+NBRE$:NOMOREI= 
'SIR 
t58 GOTO 1828 
]68 REM 
178 R CASIILLO 
188 REM 
198 LL 888:]Nk 8II:INK 1,24:]NK 
2,12 
288 PER 
2]8 VUELT] :8ICHO=3:B]CHO]=3 
228 P 2 
238 CLS 
248 OEF EJEX(T)EL*T*COS(/IG) 
258 OEF EJEY(T)--VEL*T*S]N(G)-(4, 
9,(T"2)) 
268 R 
278 R CSTRU]R D]BUJO 
288 
28 ORIGIN 
388 WIND 11,148,23,25 
318 FOR X=I TO 48:FOR Y=I9 TO 
ATE X,¥:PRIhr[ CHR$(]43); :NE)I" Y:NEXT 
X 
328 LOTE 26,;:PRItfl' CHR$(222);CHR 
(223) :LOCATE 25,] 8 :PR]h[l" CHR$(222) ;C 
HR$(287) ;CH(287) ; CH(223) 
338 LOCATE 35,,°:PR]hr[ CH(222);CHR$ 
(223) :LOTE 34,]8 :PR]hq" CHR$(222);C 
HR$(287) ;CHR$(287) ; CH(223) 
348 FOR S:25 TO 28:FOR 11 TO ]4:LO 
TE S,O:PR]hr[ CH(258):NEX'T O:NEq" 
358 FOR S=34 TO 37:FOR D:=I] 1'0 14:LO 
TE S,D:PR]hfl' CHR$(258):NEXT D:NEXl" 
S 
368 FOR S-=25 TO 37:FOR D=i5 TO ]9:LO 
TE S,O:PR]h'T CH(258:NT D:NT 
S 
378 LOTE 4,]6:PRlhrl" STR]NG$(7,2IS) 
:FOR X=4 TO ]8:FOR A=17 TO I':LOTE 
X,A:PRINT CHR'(258):NEXT A:NEXT X 
388 PLOT 8,82:OP-,Ag 3828 
38 PLOT 368,682:DPcWR 
488 PBN I:LOTE ],lS:PRIh,q' CHR$(233 
) 
4]8 LOCATE 5,I6:PR]NI' CHR$(233) 
428 LOCATE 1818:PR] CHR$(233) 
438 P 3:LOTE 32,]4:PRIN'[ CHR$(23 
3) 

II 

448 LOTE 38,]4:PR1 CHR(233) 
458 PLOT 278,]]4,2:OR/3R 18,8 
468 LOC.ATE 28,9:PRIN'$ CHR$(233) 
478 R 
488 R LCU LORES 
4?8 R 
588 ORIGIN 
5lg LOTE II3:IF VUELTI TH P 
R] II,NBRE$' ';OISP ELSE PRI 
#I ,NBREI$+' ';HSPI 
52 BEG:LOTE 
LO (B-B)VELOCIO (g-lgg) ';GVE 
L 
538 IF G)g OR G(g TH 528 
54g IF VELB OR VEL)IBB H 52g 
558 VIg.7+(OH )/4 
588 IF VUELTI TH PL 8,g,g ELSE 
PLOT 384,74:GOTO 
598 FOR T=8 TO TIPO3 EP 8,15 
688 
6]8 
628 IF X)488 TH 688 
638 IF ?(-58 T 688 



648 IF TESI'(X,Y)=2 OR TESI'(',Y)=. TH 
EN 688 
658 IF TEST(X,Y)=3 THEN PI.PUH888 
,I:SOLD I3888dOdS:NID(T S:OUT &8C 
88,8:0H &8088,8:60GUB 2668 :BICHOI=8 
]CHOI-I:]F OICHOI=O THII 3198 ELSE 6 
88 
668 PL0T 
678 NEXT T 
688 FOR T=8 TO T]PO3 EP 8.15 
68 X=EJ(T)I 
788 
718 IF X)488 TH 768 
728 IF Y(-58 TH 768 
738 IF TE(X,Y)=2 OR 1E(X,)=3 TH 
EN 768 
748 PLOT X,8 
76OISP-I:]F 0188 TH OIS 
788 FOR T=8 T0 TIP06 EP 8,15 
798 X=EJ(T)I 
888 Y=EJ(T)I 
BI@ X=X384Y=Y74 
82@ IF X<-288 THEN 
83@ IF Y(-S@ TH 
848 IF TES(XY)=2 OR TEST(XY)=3 TH 
85@ IF TEST(XY)=I THEN PI=PHIB 
BC8@,8:O &BD@Og:GOSUB 2668:BICH 
BICHO-I:IF BICH@ THEN 3198 ELSE BB 

8 
868 PLOT X,Y,3 
878 NEXT T 
BOB FOR T=8 TO T]EMPO+6 STEP 8.15 
898 X=FNEJEX(T)I EN 
788 Y=EJEY(T)VI EN 
98 X=X÷384 :Y=Y+74 
928 IF X<-288 THEN 978 
938 IF Y(-58 THEN 978 

948 IF TEST(X,()=I OR TEST(X,Y)=2 TH 
EN 97@ 
958 PLOT 
q68 NEXT T 
978 O]SPI=OISP-I:IF 018P1=8 THEN DI 
SP]=I =P1=PI-58 
?88 UUELT] :GOTO 478 
98 R 
888 R PRIME FASE ............. 
1828 R 
838 R RIABLES BERIO 
188 C588:0]M H(388),V(388):2=2:X 
1=32:Y1=18 
188 ORIGIN 88:IHK 8I:INK I]:INK 
2d:]NK 3]:P 1:BORDER 
1888 CLS 
H88 R DIBU BERIO 

'ARIA  BLe 

CON 

VIDAS 
VIDAS1 
NOMBRES 
NOMBRE1S 
X1 
Y1 
Vuelto 

PUN 
PUN1 
ANG 
VEL 
VIEN 
XeY 
TIEMPO 

TIN y TIN1 
DISP 
DISPI 
BICHO 

BICH01 

FINEJEX(I) 

FNEJEY(t) 

• . , w "ALE 
Contador del tiempo en el laberinto 
Coordenadas horizontal y vertical respectivamente del hom- 
bre en el Ioberinto 
Vidas del primer jugador 
Vidas del segundo jugador 
Nombre del primer jugador 
Nombre del segundo jugador 
Coordenada horizontal del mueco 
Coordenada vertical del mufieco 
Quien juega: 1.-Jugador uno 
2.-Jugodor dos 
Puntos del primer jugador 
Puntos del segundo jugador 
Angulo de disparo 
Velocidad de lanzamiento 
Factor de viento 
Coordenadas gaficos del disparo 
Valor experimental del tiempo que tarda el proyectil en vol- 
vet a alcanzar la horizontal 
Valores de TIME pora reducir el contador 
NOmero de disparos del primer jugador 
NOmero de disparos del segundo jugador 
NOmero de objetivos que le quedan par alcanzar al segun- 
do jugador 
NOmero de objetivos que le quedan par alcanzar al primer 
jugador 
F6rmula fisico para el c61culo de lanzamiento de proyectiles 
en el eje x 
F6rmula fisica para el c61cuto de lanzamiento de proyectiles 
en et eje y 

1118 REN 
1120 LOCATE ],l:PRIhn' G1"RING(32,233 
):LOTE 1,22:PRI STRING$(32233) 
1136 FOR 0=I TO 22:LOCATE I,D:PRINT 
CHR$(233).'LOTE 32,O:PRIhrT CHR$(233 
):NEXT O 
1148 LOTE 325:PRINT ' ':LOTE 32 
,IS:PRINT CHR$(251) 
1158 LOCATE 33,17:PRINT CH(233);OH 
R$(IB) ;CHR$(B) ;CHR(2331 ;CHR$( 
R$(81 ;CHR$(233) 
1168 RESTORE 1538 
1178 FOR 0=2 TO 31 
I 188 READ A 
1198 IF A=228 THEN PEN 3:LOCATE 
PRINT CHRS(A):PEN I:OOTO 1218 
1288 LOCATE C,Z:PRINT CHR$(A) 
1218 NEXT C 
1228 Z=Z÷I:IF Z)21 THEN 123 ELSE 
1238 PLOT 2,35,I:ORAW CON,35:PLOT 
36:DIIW 

1248 PEN 2:LOCATE 1,25:PRINT 'JUCCtWO 
0 ';:IF VUELTA=I TH PRINT NOMBRE$; 
' ..VIDAS';VIOAG;' ' ELSE PRINT N 
OMSREI$;' .,VIOAS';VIOASI;' ' 
1258 INK 1,24:INK 2)28:INK 3,6 
1268 PEN I 
1278 IIN=INI(TIME/388) 
1288 R 
28 REM MOVIMIF.NTO DEL HQ'IBRE 
1388 RE 
1318 1F 1NKE(?I)=8 THEN LOCATE XI,¥ 
I:PRINT CH(144):YI=Y1+I:GOSUB 1388 
1328 IF INKEY(39)=8 THEN LOCATE XI 
I:PRINT CHR(I44):XI=XI-I:GOSUB 1388 
1338 IF INKEY(31)=8 IHB LOCATE XI,Y 
I:PRINT CH(144):XI=XI+I:GOSU8 1388 
1348 IF ]NKEY(691=@ THEN LOCATE XI,Y 
1:PRINT CHR$(144):YI=YI-I:GOGUB 1388 
1358 TINI=INT(TINE/3@8) 
1368 IF TINt=TIN+! IHEN GOTO 1480 
1378 GOTO 1288 
1388 R 
1398 R HAY CHOQOE ?? 



1488 REN 
1418 IF TEST(XI16-8,486-(Y*I6))=I 
OR TEST(XI*I6-18,486-(YIII6))=I THEN 
1738 
1428 IF TEST(XI*;6-18,486-(YIH6))=3 
THEN GOSUB 1828 
1438 LOCATE XI,YI:PRINT CHR$(251) 
1448 IF XI)32 THEN 2178 
1458 FOR 
1468 
1478 RU 
1488 R 
149 R OIINE TIPO 
1518 PLOT C35g:CC-I:D C 
C(=2 TH 1748 
1528 GOTO 1278 
153 IA 128,149,128147,154,15415 
4,154,154,154,154,]56,128,128128,12 
8,128128,128,128128128,128,128,12 
8,128128,12828,228 
154 TA 12149,128,128,128,128,12 
8,128,128,28,18,149,128,148,128,14 
6,154,158154154,154156,128,148,12 
8,128,128,128,]28,128 
1558 A 128,14,128,15,154,154,15 
4,154158,152,128,147,154,153,128,12 
8128,149128,128,128,149,128,145,12 
8,146,154,233,23323 
158 TA 154153,128,149,128128,1 
8128,4,28,128,128I8I8,128,12 
8,12814,128,148,128,14128,128,12 
8,128,128,128,128,128 
1578 TA 128,128,128,149,128,14,15 
6,12814128,146,158,154,154156,12 
8128,14,128,149,128,147,]54,154,15 
4,154,154,233,233,233 
158B A 128,158154,153,128,128,]4 
9,228,149,128,128,14128,28,14912 
8,128149,128,14,128,128,128,12812 
8,128,18128,128,128 
1598 TA 128,149,128,128128146,15 
2128,147,15,128,1@,128128,147,15 
4,154,153,128,149,128,128,12815,15 
4,154,154,154,128,128 
16Bg IA 128,14,128,148,128128,12 
8,128128,128,28,149,128,48128,12 
8,128,128,128,151,154,15154,152,12 
8,128,18,128,128]Y8 
1618 TA I8,149,128 
4,154, 54]54,154157,128,14128I 
B,158,56,18,49128,128,128,128,12 
8128,128,128,28,128 
162 A 128,149128,128,128,12812 
8,128,128128,128,149,128,147,15212 

4,154,154,154,154,154 
1638 DATA 128,145,128,146,]52,12G,14 
8,128,58,152,128,149,128,128,128,12 
8,147,153,128,149,128,149,]28,128,12 
8,28,128,128,]28,]28 
1648 DATA 128,128,128,128,128,128,14 
9,128,149,228,128,147154,154,156,]2 
8,148,128,128,149,128,149,128,146,15 
4,154,154,154,156,128 
1658 DATA 128,158,154,154,154,154,15 
3,128,145,128,158,154,54,154,153,]2 
8,151,154,154,153,128,49,128,128,12 
8,128,128,128,149,12G 
1668 DATA 
8,128,128,128,149,128,128,128,128,12 
8,149,128,128,128,128,149,128,158,15 
4,154,154,154,153,128 
1678 DATA 12G,149,128,146,154,154,15 
4,158,154,154,153,128,158,154,152,12 
8,149,12G,146,154,154,157,128,149,12 
G,12G,128,128,12G,128 
1688 DATA 128,149,128,128,128,128,12 
8,]4,128,128,128,]28,149,128,128,12 
8,149:128,128,128,128,149,128,149,12 
8,146,154,233,233,233 
1698 DAA 128,147,154,15,154,156:12 
8,145,128,158,154,154,153:18,15,15 
4:155,154,154,152:12G,149,12G,149,12 
8,128,128,128,]28,128 
1788 DATA 128,128,128,128,128,149,12 
8,128,128,149,]28,128,128,128,149,]2 
8,128,128128,128,128,149,128,]47,15 
4,154,154,233,233,233 
1718 DATA I8,148,128,148,128,147,15 
4,154,154,153,128,146,152,128,149,12 
8,146,154,154,154,154,153,128,128,12 
8,128,128,128,128,128 
172 DATA 128,149,128,149,128,128,12 
8,128,128,128,128,128,128,128,149,12 
8,128,128,128,128,128,128,128,128,12 
8,128,128,18,128,128 
1738 REM 
1748 REN 80RP.AO0 Y OISHINE VIDAG 
1758 REN 
1768 Ir VUELTA=2 THEN VIDASI=VIOASI - 
1:I VIDASI=8 T GOTO 2178 
1778 IF VUELTA=I THEN VIDA$--VIDA8-1: 
IF VIDAS=8 TH UUELTA=VUELTA+I:ERAS 
E H,V:GOTO 1898 
17G8 FOR S=I TO N:LOCATE H(G),V(S):P 
RINT ' ':PRINT CHR$(7):NK S 
1798 X1=31:¥1=IG:LOCATE XI,YI:PRINT 
1888 GOTO 1238 
1818 RETU 
1828 REN 

1838 REM COME CORAZOM 
1858 IF VUELTA=I THEN P=P+I88 EL 
SE PLI,IJ=PI+ISB 
1868 LOCATE XI,YI:PRINT 
1878 FOR 188 lO 28 STEP -JB:SOUIIO 
I,M,7,5NEXT M 
1888 
1808 R 
1988 REM SIN VIDAS 
1918 REN 
1928 CALL &A888:CLS:LOCATE 
CHR$(158)+STR]G$(38,154)+CHR$(156) 
938 LOCATE 5,4:PRINT CHR(149)STRI 
NG$(38,32)CHR$(149) 
1948 LOCATE 5,5:PRINT CHR(149}GTRI 
HG$(38,32)+CHR$(14) 
1958 LOCATE 5,6:PRINT CHR(149)TAB(I 
149) 
1968 LOCATE 5,7:PRINT CHR$(149)TAG(3 
6)CH(149) 
1978 LOCATE 5,8:PRINT CHR$(149)+' 
0 CONSEGUII'ES PASAR EL '+CHR(14 
1988 LOCATE 5,9:PRINT CHR$(149)+STRI 
HG$(38,32)+CHR$(I49) 
[998 LOCATE 5,18:RINT CHR(149)GTR 
]HG$(9,32)+'LABERINTO.'+STRIHG$(]1,3 
2)+CHR$(149) 
2888 LOCATE 5,11:PRINT CHR$(14)TA8( 
2818 LOCATE 5,12:PRINT CHR$(149)TAG( 
36)CR$(149) 
282 LOCATE 5,13:PRINT 
TUG PLHTO$ HAN SIDO ..';:PEN 2:PRINT 
USING '##I';pun;:PEN I=PRINT ' '+ 
CHR$(I@) 
238 LOCATE 5,14:PRINT CHR$(149)TAG( 
36)CHR(149) 
2848 LOCATE 5,15:PRINT CHR$(149)+' 



nil 
• 

iillUil 

I 
• 
• 
• 
• 

• 
• 
I 
• 
• 
I 

II IIII 
'0 -I" E 

ES EL TUO DE °;:P 2:PRI NBRE 
I$;:P I:PRI TAB(36)CH(149) 
2959 LOCATE 5,16:PRINT CHR$(149)TAB( 
2669 lOCATE 5,17:PRI CHR$(149)TAB( 
36)CHR$(149) 
2976 LOCATE I,]8:PRIM CHR$(159)+CHR 
$(154)+CH(154)+CH(154)+CH(153) 
+STRING$(3B,32)+CHRS(147)+CHR$(154)+ 
CH(154)CH(154)CH(156) 
2989 LOCATE I,I?:PRI CH(149)TAB( 
4B)CH(14) 
299 LOCATE 1,2:PR] CH(151)+STR 
ING$(38,154)+CH(157) 
2196 LTE 1,21:PRI CH(149)TAB( 
49)CH(14) 
2119 LOTE 1,22:PRI CH(J49)STR 
H(147) 
2129 LOTE 1,23:PR] CH(14?)TAB( 
49)CH(149) 
218 LOTE 1,24:PR] CH(147)+STR 
IHG$(38,154)+CH(153) 
2140 LL 006 
2;60 VUELT2:OTO I066 
2179 R 
2189 R FUE OEL BERIO 
2179 R • 
220 IF VUELT2 0 VISI)O TH P 
I=PIV]S*I99C*3+N*]6:GOSUB 
439 
2218 )F VUELTI TH PPV]S* 
199+C*3+N*IB:VUELTUELTAI:ESE 
H,V:GOSUB 3430:0T0 I60 
2226 IF VIS)O TH OIS]HT(PS9 
) ELSE 
2230 IF VISI>9 TH OISPJ=I(PI 
/86) ELSE OISPI=I9 
2259 OTO 3679 

....... llIll 
....... IIIl 

lllllllllllll 

2269 R 
2279 R INSTRUCCIES 
2289 REM 
2299 CLS 
2399 LOCATE 14,2:PRI 'S-CASTILLO 
2316 LOCATE 13,3:PRI STR]NG$(14,26 
8) 
2329 LOCATE 6,4:PR] 'Estais en ple 
no siglo XIV. Las' 
2330 LOCATE 3,6:PRINI' 'costs no os u 
an deasiado bien. El' 
2349 LOCATE 3,8:PRIh[T 'malado rey h 
a ordenado que sus dos' 
2350 LOCATE 3,19:PRIM 'meJores caba 
lieros se enfrenten en' 
2369 LOCATE 3,12:PRIhF[ 'un ccbate a 
muerte tras sobreviir' 
2379 LOCATE 3,14:PR]hIT 'a l a dura pr 
ueba del laberinto.' 
2389 LOCATE 6I6:PRI 'Pocos hart si 
do los valientes que' 
2396 LOCATE 3,18:PRIhFT °hn logrado 
pasarla, en una lucha' 
2499 LOTE 3,9PR] 'conba el ti 
eopo ? la codicia.' 
2419 LOCATE 22,22PRI CHR$(159)+ST 
RING$(IS,154)CH(156) 
2429 LOCATE 22,23:PRI CHR$(149)'P 
UL  TEC'CH(149) 
2438 LOCATE 22,24:PRINT CH(I47)+ST 
RING$(15,154)+CHR$(153) 
2446 CALL 696 
2459 k=":WHILE KS ='' 
D 
2469 CLS 
2478 LOCATE 6, 3:PRIhIT 'Para poder 
ganar a tu adversario' 
2489 LOCATE 4, 5:PR]NT 'eberas des 
truir todos sus untos' 
2498 LOCATE 4, 7:PRI 'vitales, ya 
sea en el castillo o en' 

2590 LOCATE 4, 9:PRI 'el bunker. 
Tened cuidado, vuestros' 
2516 LOCATE 4, II:PR] 'puntos dep 
enderan de las acciones' 
2529 LOCATE 4 ]:PRIh[T 'que epren 
dais a lo largo dei Juego.' 
2539 LOCAIE 6, 15:PRIN'T 'El u,nto 
y vuesra punleria deci-' 
258 LOI q, I/:YH1NI "oran a p 
artida.' 
2559 LOCATE 26, 18:PRINT CHRS(159) 
259 LOCATE 28, I?:PR)NT H<I4)+ 
' 'CHR$(248)+'[A] '+H(241]'[Z] 
'÷CH(242)'[<] '+H(243)÷'()]' 
2578 LOCATE 5, 28:PR) 'Moiiento 
s: +CHR(157) 
2589 LOCALE 29, 21:PR] CH(14?)+ 
' -IRODUCIR TOS' 
259 LOCALE 3,22:PRIffT CHR$(159)+ST 
RING$(15,154)+CHR$(156):LOCATE 29, 2 
2:PR] CH(147) 
2666 LOCATE 3,23:PRIhff CH(I49)+'P 
UL Ltq lEC'+CH(149) 
2618 LOCATE 3,24:PR]hff CH(147)ST 
RING$(15,154)CH(153) 
2626 CALL 969 
269 K" :HHILE K" :KIHK$:W 
0 
2640 CLS 
2659 GOTO 99 
2669 R 
2676 R OBJETIVO ALCAiZADO 
2689 R 
2699 IF X(-179 TH LOCATE 
T ' ' :RE-TU 
2780 IF X4-169 TH LOCATE 5,16:P 
2:PRI CH(218) :RE-TU 
2719 IF X4196 TH LOCATE 18IS:PRIN 
T ' ':RETU 
2729 IF X>399 TH LOCATE 32,14:PRIN 
T ' ':RETU 
2739 IF X)27 TH LOCATE 39,14:PRIH 
T ' ':RETU 
2749 IF X)249 TH LOCATE 28,9:PRI 
' ' :RE'TU 
2759 R 
2760 R PRESSFTAC] 
2776 R 
2789 CLS 
2799 INK 6,6:INK 1,9:INK 2,23:80ROER 
8:P I:FOR T=I TO 2OO:NEX'T T 
2809 LOCATE 1,25:PRI 'S,CASTILLO 
2819 FOR X=] TO 98 STEP 2 
2829 FOR Y=16 TO I STEP -2 
2830 IF TEST(X,Y)06 TH PLOT -3+X* 
3,3,349+(Y*4)-X12,2:DRAWR 6,6:0PuWR 
-6 F6 :I)Pu4WR 1233 



2848 NEXT ¥ 
2858 hiEX'[ X 
2868 FOR X=98 TO 192 STEP 2 
2878 FOR ¥=16 TO I STEP -2 
2888 1F TEST(X,'Y)08 TH PLOT 16+X* 
3.3 j-46+(¥*4)+X*2,2 :ORAWR 6 j6:DRAWR 
-12,3,3 
2898 hiEXT T 
2988 NEXT X 
2918 LOCATE i,25:PEhl 8:PRINT ' 
2928 INK 1,26:PEN 
2938 CALL 
2948 LOCATE 523:IhiPUT 'QUIERES ]NST 
RUCCIES ';RES$ 
."o58 !F RESI=" THEN 2948 
2Y68 IF LEFTZ(UPPERZKES$),I 
 GO'T(] 2268 
2978 IF LEFT$(UPPER$(RES$),I)='hI' TH 
EN CLS:GOTO 98 
2998 GOTO 2948 
3888 RE)4 
38]8 REM COOlGO MAQUINA 
3828 REN 
3838 RESTORE 3848:FOR X=I l'O 6:READ 
Ai:POKE &9FFF+X,UAL('&'+A$):NEXT X 
3848 DATA CD89,BB,38,FB,C9 
3858 SYMBOL 258,&FF,&Sj&8&8,&FF&88 
,&88 
3868 RETU 
3878 REN 
3888 REM PASO DEL ECUADOR 
3898 RE]4 
3188 CLS 
3118 LOCATE 2,8:PRINT hiBRE$:LOCATE 
2,16:PRINT NOMSREI$ 
3128 LOCATE 16,2:PRINT 'PUITOS':LOCA 

TE 25,2:PRINT 'O]SPAROS' 
3138 PEN 2 
3148 LOCATE 188:PRINT USIhiG '###)'; 
PUN:LOCATE 31,8: PRINT USING °#i';Ol 
SP 
3158 LOCALE I8,16:PRINT USING '####' 
;PUNI:LOCATE 31,16: PRINT USIhiG '##' 
;I)ISPI 
3168 DALL 888 
3170 WHILE INKEY$=" 
3180 GOTO 168 
3198 R 
3208 REN FIN!!! POR FIN!!! 
3218 R 
3228 CLS 
3238 PEN I 
3248 INK 8,1 
3258 LOCALE 84:PRINT 'HAS LOGDO S 
OBREVIUIR' 
3268 IF 81CHOI=8 THEN PRINT:PRINT TA 
B(8)NBRE$ :PLC=PUN+DI SP.58 ELSE 
NT :PRINT IAB(8)N)BREI$ :PUNI=PI +DI 
SPI *58 
3278 LOCATE 8,8:PRINT 'Y S OBIENIO 
0  IOTAL' 
3288 LOCALE 8,18:PRINT 'DE'; 
3298 IF BICHOI=8 THEN LOCALE 
RINT PUN; ELSE LOCALE 18jIB:PRINT PU 
3388 PRINT ' PO8.' 
3318 LOCATE 8,12:PRINT 'TU ENIGO 
; 
3328 IF BICHOI=8 THEN PRINT hiBREI$ 
ELSE PRINT N)BRE$ 
3338 LOCALE 8,!4:PRINT 'HA CUNSEGUID 
0'; 
3348 IF BICHOI=8 THEN PRINT PUNI; EL 

J 

SE PRINT PUN; 
3358 PRINT ' PUNIOS' 
3368 LOCATE 13,16:PRINT '))HOBUE 
3378 PRINT 
3388 IF BICHOI=8 THEN PRINT 
LDRO ';N)BRE$ ELSE PRINT IAB(IS)'LO 
RD ' ;hiBREl$ 
338 LOTE I8,25:FRI)T 'PUL  l 
EC' 
3400 LL 
3429 R 
3439 R 
3449 R SIO0 
3458 R 
3460 SOO ,478,38,15:S00 13589 
9,15S0 1,3130,15::$0D 1,301, 
3815:S0D 1,319,30,15SOUN0 
,38,15 S09 1,35839 IS:SOD 1,402 
,98,15:S0 1478,3815S0D 1402 
3470 SOD 1478,3015=80D 1,3589 
6,]5:SOD 1,317,30,15=0D 1,361, 
30150 t ,319,36,15:S00 
3OIS=SOD 1 268,38,15S0 1,239 
,90,15:S0 1 391,30,15:SOO 1 239 
90,15 
3489 



Los afortunados po- 
seedores de un CPC 464 probable- 
ment-, os habr6is encontrado en mul- 
titud de ocasiones con comandos ta- 
les como FRAME, CURSOR, GRAP- 
HICS PAPER, etc. procedentes del 
BASIC 1.1 que utilizan el 664 y 6128. 
Normalmente cuando quer6is copiar 
un listado con estos comandos los te- 
nis que anular (con la consiguiente 
prdida de efectos grdficos) o cargar 
antes un programa que los sustituya 
por comandos RSX (como el del Mi- 
crohobby AMSTRAI} n.° 412) con el 
engorro adicional de tener que te- 
clearlo y despus cargarlo cada vez 
que se quiera correr el programa. 
Esto para los que poseen una unidad 
de disco no supone ning0n problema 
pero con el cassette con que viene 
equipado el 464 es un verdadero la- 
berinto. 

LA OTRA OPClON 

Existe, sin embargo, otros m6todos 
para emular algunos de los coman- 
dos del BASIC 1.1 basados en llama- 
das directas alas rutinas del Firmwa- 
re o mediante cortas Iieas Basic: 
-- FRAME: Este comando es sen- 
cillisimo de sustituir tecle- 
ando: CALL & BB19 
-- AEAR INPUNT: Pa- 
ra imitarlo se debe teclear la 
linea BASIC: WHILE INKEYS 
< + .... : WEND. 

EL 464 ES UN 664 
DISFRAZADO 

Por Andr6s de/Pozo Prieto 

--GRAPHICS PAPER: Este co- 
mando requiere m6s pericia para 
descubrir c6mo imitarlo sin tener que 
recurrir al c6digo m6quina. Para ello 
hay que hacer una Ilamada al Firm- 
ware en la direcci6n & BBE4 y detrs 
de esta Ilamada hay que poner tan- 
tos par6metros como nOmero de pa- 
per se quiera. 
Por ejemplo para sustituir GRAP- 
HICS PAPER 3 tenemos que escribir 
en nuestro 464 CALL & BBE4,1,1,1. 
Si queremos utilizar el papel 4 escri- 
biremos CALL & BBE4,1,1,1,1. 
Esto por supuesto en el caso del 
papel 15 seria <olgo inc6modo. 

-- GRAPHICS PEN: El sistema uti- 
lizado que para GRAPHICS PAPER 
pero Ilamando a la direcci6n & 
BBDE. 
-- CURSOR: Cuando se quiere 
activar el cursor (comando CURSOR 
1, 1) hay que teclear: CALL & BB7B: 
CALL & BB81. 
Para desactivarlo se escribe: CALL 
& BB7E (CURSOR 1,0) o CALL & 
BB84 (CURSOR O, 1). 
-- Para seleccionar el modo 16gi- 
co en que se van a imprimir los gra- 
ficos, en el BASIC 1.1 se utiliza un 
cuarto par6metro aSadido a los co- 
mandos PLOT, DRAW; MOVE etc. 
En el BASIC 1.0 (el del 464) pode- 
mos utilizar los caracteres de control 
(ver el manual), en concreto el n. ° 
23. Para seleccionar el modo gr6fi- 
co se escribe: ? CHRS (23); CHRS 
(modo gr6fico). 
Los modos grficos disponibles son 
los mismos que los del BASIC 1.1 y 
son los siguientes: 
0-Modo normal 
1-Modo XOR. Eiecuta un XOR en- 
tre la tinta ya impresa en la pantalla 
y la tinta que queremos poner. 
2-Modo AND. Igual que el modo 
1 pero efectuando un AND. 
3-Modo OR. Igual que el modo 1 
pero efectuando un OR. 
Por desgracia los otros tres coman- 
dos no expuestos del BASIC 1.1 
(FILL, COPYCHR$, MASK) son impo- 
sibles de imitar sin utilizar rutinas en 
c6digo m6quina como la del M.H.A. 
n. ° 42. 
Espero que estos 
pequeSos truqui- 
tos os sean de gran 
utilidad al crear maravi- 
Ilosos graficos con vuestro 
464 y su magnifico Firmware. 



Oescubre el fascinante mundo de los robots: Suo tilidad, los 
! , 
[dtimos avances y cdmo afectaran a tu vida. • El jueg.o de 
la via nacimiento, evolucidn y muerte en un mundo do 
fantas(a. • Simuladores de vuelo: Un .trepidante uelo. sobre 
topos los simuladores de combate para AMSTRAD. 
• HISOFT-C. I lenguaje de alto nivel mts .o ido,del '° • 

para tu CPC. • E! mundo de bloques: Compresidn del 
lenguaje natural desde.Basic. • Forth: Todo un lenguaje 
.especialmente diseado para ti. • Todo esto y mucho ms 
en AMSTRAD ESPECIAL NUM RO R S. 



IFERENTES 

T' M ' OS DE LETRAS 
EN U MISMO MODO 

Hate unos dlas vireos en estas mismas p6ginos, la forma de 
obtener diferentes tipos de caracteres a tray,s de diferentes 
rutinas; boy para exprimir ash m6s, si cabe, la capacidad de 
dichas rutinas, hemos preparado un programa que nos 
permitir6 imprimir dichos caracteres a tres tamaos 
diferentes. 

ntes que nada, de- 
bemos de,-ir que el programa que os 
presentamos boy funciona correcta- 
mente tanto si deseamos utilizarlo so- 
lo o acompaado del programa ge- 
nerador de caracteres. 
Veamos ahora cu61es son las po- 
sibilidades que nos ofrece la rutina 
magnificadora de caracteres, y al fi- 
nalizar el articulo explicaremos los 
pasos que deberemos seguir para 
utilizarlo solo o bien acompaado de 
nuestro generador de caracteres. 
El programa nos ofrece tres nue- 
vos comandos RSX que podremos 
utilizar desde nuestros propios pro- 
gramas Basic, 6stos son los siguien- 
tes: 
IT1,X,Y,".." 
IT2,X,Y,".." 
IT3,X,Y,".." 
donde X e Y deberRn ser las coorde- 
nadas de impresi6n en pantalla, del 
mismo modo que se utilizan con la 
funci6n 'LOCATE' del Basic, es decir, 
'X' contiene la coordenada horizon- 
tal e 'Y' la coordenada vertical. 
El gltimo part, metro deberR conte- 
ner la cadena de caracteres que se 
desea imprimir en la anterior posi- 
ci6n de pantalla, y que no deber6 su- 
perar los 80 cargcteres de Iongitud. 
Los tres nuevos comandos funcio- 
nan de una forma similar en cuanto 
a la impresi6n en pantalla, aunque 
poseen rutinas diferentes para mani- 
pular los caracteres que se deseen 
imprimir en pantalla. 
Cuando se entra en la rutina, Io 
primero que se hace es comprobar 
24 COHO AMSTRAD 

que los parRmetros introducidos con 
el comando RSX son correctos, de Io 
contrario se nos mostrarR un mensaje 
de error y retornarR al Basic. 
Si los par6metros no son err6neos, 
se tomar6 la cadena de caracteres y 
se traspasarR a un buffer propio pa- 
ra poderlos leer mrs tarde. 
Una vez hecho esto, se tomarR ca- 
da uno de los caracteres y se segui- 
rRn los siguientes pasos: 
1.--Se toma la matriz donde se en- 
cuentran los datos que definen el ca- 
r6cter. 
2.--Se modifican segOn el tipo de 
letra que se desee obtener. 
3.--Se imprimen en pantalla. 
Los datos modificados del carRc- 
ter, se introducen en la matriz de los 
caracteres grcficos 252-255, para 
mRs tarde imprimirlos en pantalla. 
Veamos c6mo funcionan las dife- 
rentes rutinas encargadas de la 
transformaci6n de los caracteres 
gr6ficos. 
El primero de los comandos se en- 
carga de imprimir en pantalla un ti- 
po de letra dos veces mrs largo que 
el presentado normalmente en el mo- 
do de pantalla en que se est6 traba- 
jando en ese momento. 
Para ello, se tomarR la matriz del 
carRcter a imprimir, y se doblarRn 
cada uno de los bytes que Io definen 
de la forma siguiente: 

00011000 00011000 
00011000 00011000 
00100100 00011000 
01000010 00100100 
01000010 00100100 
01111110 01000010 
01000010 01000010 
01000010 01000010 
00000000 01000010 
01111110 
01111110 
01000010 
01000010 

./ 



NGEL 
LU 

01000010 
01000010 
00000000 
00000000 
Con Io cual se habr6 conseguido 
un car6cter dos veces m6s alto que 
el original. 
El segundo comando 'T2', nos pro- 
porciona un car6cter con un ancho 
doble que el original, ello se consi- 
gue doblando cada uno de los bits 
que componen los ocho bytes que 
defienen el car6cter original. 
Para ello se llama a una rutina que 
debe producir el efecto que mostra- 
mos a continuaci6n, tomando como 
carcter original el mismo car6cter 
tornado anteriormente <A>>: 
0000001111000000 
0000110000110000 
0011000000001100 
0011000000001100 
0011111111111100 
0011000000001100 
0011000000001100 
0000000000000000 
Es decir, se deben doblar cada uno 
de los bits que componen los ocho 
bytes que definen el car6cter origi- 
nal. Asi pues al finalizar la operaci6n 
habremos obtenido 16 bytes que son 
los que definiran el car6cter amplia- 
do. 
El tercer tipo de car6cter, se con- 
sigue aplicando los dos efectos an- 
teriores, con Io que se conseguir6n 
32 bytes que ser6n los que nos pro- 
porcionar6n la definici6n del car6c- 
ter de doble ampliaci6n. 
El efecto producido seria el que se 
muestra gr6ficamente a continua- 
ci6n: 
0000001111000000 
0000001111000000 
0000110000110000 
0000110000110000 
0011000000001100 
0011000000001100 
0011000000001100 
0011000000001100 
0011111111111100 
0011111111111100 
0011000000001100 
0011000000001100 
0011000000001100 
0011000000001100 
0000000000000000 
0000000000000000 
,COHO AtASTRAD 25 



Veamos a continuaci6n en qu6 
ocasiones nos puede aparecer el si- 
guiente mensaje de error: 

ERROR EN PARAMETROS 

--Cuando se omita alguno de los 
tres parmetros necesarios para el 
buen funcionamiento del comando. 
--Cuando la Iongitud de la cade- 
na introducida sea superior a 80 ca- 
racteres. 
Veamos curies son los pasos a se- 
guir para almacenar la presente ru- 
tina en cinta o disco. 
Para aquellos que posean ensam- 
blador, Onicamente tienen que co- 
piar el listado desensamblado que 
aparece a continuaci6n, y salvarlo 
como c6digo objeto a partir de la di- 
recci6n hexadecimal #9000 con una 
Iongitud de 501 bytes. 
Si se prefiere se puede utilizar el 
cargador Basic, para ell@, una vez 
copiado se deber ejecutar, y en el 
caso de que aparezca algOn mensa- 
je de error se deber6n revisar las li- 
neas 'DATA'. 
Si se ha ejecutado correctamente, 
procederemos a salvar el programa 
de la siguiente forma: 
SAVE "CARAC2", B,&9000,501 

Cuando se desee ejecutar, debe- 
remos cargar la rutina almacenada 
anteriormente, e inicializar los co- 
mando RSX. Esto se puede realizar 
de la siguiente forma: 

10 MEMORY &8FFF 
20 LOAD "CARAC2", &9000 
30 CALL &9000 

De esta forma ya estaremos en 
condiciones de ejecutar los nuevos 
comandos. 
Si deseamos utilizar los nuevos co- 
mandos RSX junto con los proporcio- 
nados con la rutina generadora de 
caracteres, deberemos cargar en 
memoria la presente rutina junto la 
que aparecia en un mOmero anterior 
de esta misma revista, e inicializar los 
dos bloques de comandos RSX. 
Esto se podr6 conseguir confeccio- 
nando un programa Basic como el 
que se muestra a continuaci6n: 

10 MEMORY &8FFF 
20 LOAD "CARACI", &9500 
30 LOAD "CARAC2", &9000 
40 CALL &9500 
50 CALL &9000 

De esta forma sern utilizables tan- 
to los nuevos comandos como los an- 
teriores. 

2(  COOm AMSTRAD 

LISTADO ASSEMBLER I 

18 ORG #9888 
28 LD DE,32 
30 LD HL,CARAC 
40 CALL #88A8 
5@ LD BC.,TABLA 
0 LD HL,ESPACE 
78 JP #BCDI 
8@ TABLA: DEFW NAMEI 
90 JP LNO 
tgg JP DOS 
I18 JP TRES 
128 NAME1: DEFH 
138 DEF8 "l'÷#80 
140 DEFM T' 
15@ DEFB '2"+#8@ 
168 DEFM 'T' 
17@ DEF8 "3'+#88 
180 DEFB 8 
19@ ESPACE: DEFS 4 
208 VALFA: LD (TIPO),A 
210 LD L,(IX+2) 
22@ LD H,(IX÷4) 
238 LD (POSIC),HL 
240 LD L,(IX+g) 
258 LD H,(IX+I) 
260 LD A,(HL) 
278 CP 88 
288 JP NC,ERROR 
298 INC HL 
388 LD E,(HL) 
319 INC HL 
328 LD D,(HL) 
338 EX DE,HL 
340 LD DE,NAME 
35@ L0 B,A 
366 MOS: LD A,(HL) 
378 LO (DE),A 
38@ INC HL 
398 INC DE 
488 DJNZ M0S 
418 LD A,255 
428 LD (DE),A 
436 JP INIC 
44@ UN0: CP 3 
450 JP NZ,ERROR 
468 LD A,! 
47@ JP VALFA 
488 DOS: CP 3 
49@ JR NZ,ERROR 
580 LD A,2 
518 JP UALFA 
52@ TRES: CP 3 
538 JP NZ,ERROR 
548 LD A,3 
550 JP VALFA 
568 PONES: LD A,252 
570 LD HL,MATRIZ 
588 CALL #88A8 
598 LD A,253 
688 LD HL,MATRIZ+8 
618 CALL #88A8 
628 LD A,254 
638 LD HL,MATRIZ÷I6 
64@ CALL #88A8 
650 LD A,255 
668 LD HL,MATRIZ÷24 
678 CALL #88A8 
680 RET 
698 INIC: LD HL,NAHE 
700 8UC: LD 
710 CP 255 
720 RET Z 
738 PUSH HL 
748 CALL #88A5 
758 LD A,(TIP0) 
768 CP I 
77@ PUSH AF 
788 CALL Z,TIP01 
798 POP AF 
808 CP 2 
818 PUSH AF 
820 CALL Z,TIP02 
838 POP AF 
848 CP 3 
858 CALL Z,TIP03 
868 POP HL 
878 INC HL 
888 JR BUC 
898 
988 
918 TIP01: LD DE,MATRIZ 
928 LD 8,8 

938 
948 
958 
968 
978 
988 TIP02: 
998 
1808 
1818 
1828 
1038 TIP03: 
1848 
1078 
I080 
1090 
1108 
1118 
1120 
1138 
1140 
I15@ 
1168 
1170 
1188 
1190 
1208 
1218 GRANDE: 
i 228 
1238 
1240 
1258 
1260 
1278 
1288 
1290 
1300 
1310 ANCH0: 
1320 
1330 BUCAN: 
1348 
1350 
1368 
1378 
1388 
1390 
1488 
1418 
1420 
1438 
1448 
1458 
468 
470 
480 
498 
508 
518 
520 
538 
1548 
1550 
1568 
1570 
1588 
1598 
1688 
1610 
1620 
1630 
1648 
1658 
1660 PON67: 
1678 
1688 
1698 PON45: 
1788 
1718 
1720 PON23: 
1730 
1748 
1758 PONSI: 
1760 
1778 
1788 
1798 
1888 PINTA2: 
1810 
1820 
1830 
1848 
1858 
1868 
1870 

CALL GRANDE 
CALL PONES 
CALL PINTAI 
RET 

CALL ANCH0 
CALL PONES 
CALL PINTA2 
RET 

CALL ANCH0 
LD HL,MATRIZ 
LD DE,MATRII 
LD 8C,16 
LDIR 
LD HL,MATRII 
LD DE,HATRIZ 
LD B,8 
CALL GRANDE 
LD HL,MATRII*S 
LD DE,ITRIZ+I& 
LD B,8 
CALL 6RANDE 
CALL PONES 
CALL PINTA3 
RET 

LD A,(HL) 
LD (DE),A 
INC DE 
LD (DE),A 
INC DE 
INC HL 
DJNZ GRANDE 
RET 

LD DE,MATRIZ 
LD B,8 
X0R A 
PUSH DE 
BIT 7,(HL) 
CALL NZ,PON67 
efT 6,(HL 
CALL NZ,PON45 
eft 5,(HL) 
CALL NZ,PON23 
BIT 4,(HL) 
CALL NZ,PON81 
LD (DE),A 
PUSH HL 
EX DE,HL 
LD DE,8 
ADD HL,DE 
EX DE,HL 
POP HL 
X0R A 
81T 3,(HL) 
CALL NZ,PON67 
BIT 2,(HL) 
CALL NZ,PON45 
81T I,(HL) 
CALL NZ,PON23 
BIT 0,(HL) 
CALL NZ,PONSI 
LD (DE),A 
POP DE 
INC DE 
INC HL 
DJNZ BLICAN 
RET 

SET 6,A 
SET 7,A 
RET 
SET 4,A 
SET 5,A 
RET 
SET 2,A 
SET 3,A 
RET 
SET @,A 
SET t,A 
RET 

LD HL,(POSIC) 
CALL #B875 
LD A,252 
CALL #BB5A 
LD HL,(POSIC) 
INC H 
CALL #8875 
LD A,253 



1808 CALL #885A 
1098 L0 HL,(POSIC) 
1988 INC H 
1910 INC H 
1928 LD (POSIC),HL 
1930 RET 
1948 PINTAI: LD HL,(POSIC) 
1950 CALL #8875 
1968 LD A,252 
1978 CALL #885A 
1988 LD HL,(P0SlC) 
1990 INC L 
2808 CALL #8875 
2818 LD A,253 
2828 CALL #8B5A 
2838 LD HL,(POSIC) 
2848 INC H 
2850 LD (POSIC),HL 
2868 RET 
2870 PINTA3: LD HL,(POSIC) 
2088 CALL #8875 
2898 LD A,252 
2188 CALL #BB5A 
2118 LO HL,(POSIC) 
2128 INC H 
2138 CALL #8875 
2148 LD A254 
2158 CALL #885A 
2168 LD HL,(POSIC) 
2178 INC L 
2188 CALL #8875 
2198 LD A,253 
2288 CALL #885A 
2210 LD HL,(POSIC) 
2228 INC H 
2238 INC L 
2248 CALL #8875 
2258 LD A,255 
2268 CALL #885A 
2278 LD HL,(POSIC) 
2288 INC H 
2298 INC H 
2388 LO (POSIC),HL 
2310 RET 
2328 ERROR: LD HL,TXTE 
2338 BUCER: LD A,(HL) 
2340 CP 255 
2358 RET Z 
2368 CALL #BB5A 
2378 INC HL 
2388 JR BUCER 
2398 TXTE: DEFH 'ERRORENPAR,CIETROS '' 
2488 DEFB 255 
2418 POSIC: DEFW #8585 
2420 TIP0: DEF8 1 
2438 NAME: DEFS 81 
2448 MATRIZ: DEFS 32 
2458 MATRII: DEFS 32 
2460 CARAC: EQU #gFF8 

TABLA DE ETIQUET' S 

ANCH0 9186 8UC 9897 8UCAN 9188 
8UCER 9105 CARAC 9FF8 DOS 985F 
ERROR 9102 ESPACE 9824 GRANDE 98FD 
INIC 9094 MATRII 9267 MATRIZ 9247 
MOS 9049 NAME 91F6 NAMEI 9810 
PINTAI 917A PINTA2 915A PINTA3 9199 
PON01 9155 PON23 9150 PON45 9148 
PON67 9146 PONES 9073 POSIC 91F3 
TABLA 9812 TIP0 91F5 TIP01 9889 
TIP02 98C8 TIP03 98D2 TRES 9069 
TXTE 91DF UNO 9855 VALFA 9828 

CARGADOR B' SIC 

18 FOR N=&808 TO &91F5 418 DATA 
20 READ A:SUMA=EUMA+A 5 
38 POKE N,A 428 DATA 
48 NEXT 430 DATA 
58 IF SUMA<>67140 THEN PRINT 'ERROR 
448 DATA 
EN DATAS":END 450 DATA 
60 DATA 17,32,0,33,248,159,205 460 DATA 
78 DATA 171,187,1,18,144,3336 470 DATA 
80 DATA 144,195,209,18829,144,195 488 DATA 
90 DATA 85,144,195,95,144,195,105 498 DATA 
100 DATA 144,84,177,84,178,84,179 508 DATA 
110 DATA 0,0,8,0,0,50,245 
510 DATA 
120 DATA 145,221,110,2,221,102,4 520 DATA 
130 DATA 34,243,145,221,118,0,221 530 DATA 
140 DATA 102,1,126,254,88,210,21 
150 DATA 145,35,94,35,86,235,17 
548 DATA 
160 DATA 246,145,71,126,18,35,19 9 
178 DATA 16,250,62,255,18,195,148 558 DATA 
188 DATA 144,254,3,194218,14562 560 DATA 
190 DATA 1,195,48,144,254,3,194 578 DATA 
200 DATA 210,14562,2,195,40,144 580 DATA 
218 DATA 254,3,194,218,145,62,3 598 DATA 
220 DATA 195,40,144,62,252,33,71 600 DATA 
230 DATA 146,205,168,187,62,253,33 610 DATA 
240 DATA 79,146,285,168,187,62,254 620 DATA 
258 DATA 3387,146205,168,187,62 630 DATA 
268 DATA 25533,95,146,205,168,187 640 DATA 
270 DATA 201,33,246,145,126,254,255 650 DATA 
280 DATA 288,229,285,165,187,58,245 
290 DATA 145,254,1,245,204,185,144 660 DATA 
670 DATA 
300 DATA 241,254,2,245,204,200,144 680 DATA 
310 DATA 241,254,3,204,210,144,225 690 DATA 
328 DATA 35,24,222,17,71,146,6 788 DATA 
330 DATA 8,205,253,144,205,115,144 710 DATA 
348 DATA 205,122,145,201,205,6,145 720 DATA 
350 DATA 205,115,144,205,90,145,281 730 DATA 
360 DATA 205,6,145,33,71,146,17 740 DATA 
370 DATA 183,146,1,16,0,237,176 758 DATA 
388 DATA 33,103,146,17,71146,6 768 DATA 
398 DATA 8,285,253,144,33,111,146 778 DATA 
400 DATA 17,87,146,6,8,205,253 

144,205,115,144,205,153,14 
201,126,18,19,18,19,35 
16,243,281,17,71,146,6 
8,175,213,283,126,196,70 
145,203,118,196,75,145,203 
I18,196,88145,203,102,196 
85,145,18,229,235,17,8 
0,25,235,225,175,203,94 
196,78,145,203,86,196,75 
145,283,78,196,88,145,283 
70,196,85,145,18,209,19 
35,16,198,281,203,247,203 
255,201,283,231,283,239,28 
203,215,203,223,281,203,19 
203,207,28142,243,145,205 
117,187,62,252,285,98,187 
42,243,145,36,285,117,187 
62,253,285,98,187,42,243 
145,36,36,34,243,145,201 
42,243,145,205,117,187,62 
252,285,98,187,42,243,145 
44,285,117,187,62,253,205 
90,187,42,243,145,36,34 
243,145,201,42,243,145,285 
117,187,62,252,205,90,187 
42,243,145,36,285,117,187 
62,254,205,98,187,42,243 
145,44,285,117,187,62,253 
285,90,187,42,243,145,36 
44,205,117,187,62,255,205 
98,187,42243,145,36,36 
34,243,145,201,33,223,145 
126,254255,200,205,90,187 
35,24,246,69,82,82,79 
82,32,69,78,32,8065 
82,65,77,69,84,82,79 
83,255,5,5,8,0,0 

Tu cuarta pieza y tu cuaxto n  uu-ro 

Recorla # [ " 
y pega 
esta 
peza .p 
en su lugar. {0 ' 

Recorta este n6mero y 
gurdalo hasta que tengas 
los restantes, despus 
pgalo en su lugar 
correspondiente, de forma 
que las sumas horizontales 
y verticales comcidan (18). 
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1MPRE$10N 
SIN PROBLEIV  S 

La impresora incluida con el PCW 82561512 se diferencia de 
las dem6s en la casi ausencia de switches> y controles 
externos, ya que estas funciones se realizan en todo 
momento desde el software suministrado con el ordenador, 
bien sea el procesador de textos Locoscript, o el Mallard 
Basic. 

/ 
! 

s facilidades 
de la impresora del PCW se pueden 
manipular directamente desde Lo- 
coscript y todos los comandos de Lo- 
coscript son compatibles con la im- 
presora. 
Si usted nunca ha tenido que ins- 
talar una particular impresora para 
un determinado ordenador, no pue- 
de hacerse una idea exacta de la 
gran ventaja, en t6rminos de tiempo 
y nervios, que representa el estrecho 
lazo que hay entre la impresora del 
PCW y el orc]enador: letras it61icas, 
subrayadas, negritas, todas se impri- 
men sin fallo alguno y r6pidamente 
con la sola elecci6n del item del me- 
nO correspondiente. 

La tecla IMPR 

Se le comunica al PCW que desea- 
mosque tome el control de la impre- 
sora mediante la tecla IMPR, situa- 
da a Idizquierda de la tecla SAL en 
la fiola inferior del teclado. Esta te- 
cla causa que Locoscript asuma el 
modo impresora (¢¢Printer Mode) y 
liste los comandos de control de im- 
presora en la barra de cstatus. 
Otra manera de hacer Io mismo es 
jugar con los escasos controles que 
SI est6n fisicamente en la irrpresora, 
como el (paper-feed o la barra de 
sujeci6n del papel (basta levantarla 
y volverla a bajar). 
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Suponiendo que ninguno de los 
menOs-persiana (¢¢pull down menus) 
est6 activo, se puede volver en cual- 
quier momento del modo impresora 
al modo edici6n de texto o al mane- 
jo de ficheros del disco pulsando la 
tecla EXIT. Si uno quiere abortar en 
medio de una operaci6n de cual- 
uier menO, se puede usar la tecla 
AN en la forma acostumbrada. 

Un poco de claridad 

No obstante todas estas facilida- 
des, debemos admitir que el uso de 
las varias teclas de funci6n disponi- 
bles, en modo control de impresora, 
no son tan tiaras como deberian ser. 
Lo mismo, por desgracia, se puede 
decir de los diferentes nombres de te- 
clas que se pueden ver en la barra 
de status)) (la barra de c6mo estd 
el patio,s, vox populi). 
A causa de esto, es deseable esta- 
blecer un procedimiento fijo que se 
pueda usar para preparar la impre- 
sora al comienzo de cada sesi6n de 
impresi6n. Sigui6ndolo con cuidado, 
nos aseguramos de que nuestro pre- 
cioso documento, SIEMPRE, presen- 
te el aspecto que realmente quere- 
mosque tenga. 
Comenzamos ajustando el gnico 
control, propiamente dicho, que es- 
t en la misma impresora: le podria- 
mos Ilamar da palanca de fuerza de 
impresi6n)) (figura I). Se encuentra 
en el interior, a la derecha, y, para 
asegurarse de que exista una m6xi- 
ma claridad en Io impreso, debiera 
estar colocada a baja presi6n (hacia 
atrds) para hojas sueltas, y a alta 
presi6n (hacia adelante), para mOl- 
tiples copias. El truco est6 en selec- 
cionar la menor presi6n consistente 
con la m6s alta calidad (experimen- 

taci6n al canto). La siguiente tarea es 
adaptar la impresora al tamafio de 
papel que usaremos y a la calidad de 
letra requerida. 
Esto se consigue pulsando fl, que 
muestra en pantalla un menO que 
permite al usuario elegir entre baja 



aunque ocho, como describiremos 
luego, tambi6n pueden valer. 
La Iongitud prevista por defecto 
para hojas sueltas corresponden al 
papel tipo A4, mientras que para pa- 
pel continuo se ha previsto elde com- 
putadora tipico, el que le van a ven- 
der a usted en la tienda. 
Una vez queel papel ha sido caro 
gado en la impresora mediante el 
control de carga, puede ser necesa- 
rio, todavia, ordenarla unas cuantas 

ordenador de que la actual posici6n 
del cabezal de impresi6n es el nue- 
vo tope de p6gina. 

y alta calidad, y entre papel continuo 
y hojas sueltas (figura II). 
Se pueden seleccionar las opciones 
que sean como de costumbre: con la 
barra espaciadora y la tecla  + . 
Normalmente, no est6 nada mal 
seleccionar seis lineas por pulgada, 

cosas m6s, mediante la tecla de fun- 
ci6n f3. 
Este menO (figura III) ofrece dos 
acciones externas y una interna. 

Mens de comondos 

La primera acci6n externa obliga 
a la impresora a avanzar el papel 
una linea por p6gina. Coloque el 
cursor sobre la opci6n adecuada y 
pulse +. Es posible avanzar m6s li- 
neas pulsando repetidamente esta 
tecla, pero, cuidado: no tiene auto- 
rrepetici6n. 
La segunda acci6n externa es mo- 
ver el cabezal de impresi6n del mar- 
gen izquierdo y avanzarlo un cierto 
nOmero de caracteres. Ponga la ba- 
rra del cursor sobre la 01tima linea 
del menO e introduzca el nuevo va- 
lor que desee. 
La acci6n interna resetea el tope 
de p6gina, y puede ser necesaria 
cuando hemos avanzado manual- 
mente el papel, para asi informar al 

En todos los casos anteriores, pul- 
sando ENTER confirmamos nuestra 
elecci6n y salimos del menO. 
Lo descrito hasta ahora, en cuan- 
to a controles de impresora, son los 
que necesitar6 en la inmensa mayo- 
ria de los casos excepto, quiz6s, 
cuando altere la calidad de letra. 
Despu6s de una serie de pruebas, 
si se encuentra contento con los re- 
sultados, pulse SAL para abandonar 
el modo de control de impresora. 
Subsecuentes impresiones de sus 
documentos, al dejar con SAL una 
sesi6n, de edici6n, o con P desde la 
pantalla del disc manager (impre- 
si6n de ficheros desde disco), presen- 
tarn las caracteristicas definidas tal 
y como hemos indicado, aunque us- 
ted puede revisarlas y alterarlas en 
cualquier momento reentrando el 
modo de control de impresora me- 
diante la tecla IMPR. El resto de las 
teclas en la Ifnea de status de la 
impresora se usan, en general, pa- 
ra tomar alguna acci6n mientras es- 
t6 trabajando, o para corregir algOn 
error cuando ha ocurrido. 



En cada caso, habrd que volver a 
introducirse en el modo de control de 
impresora para dar las 6rdenes ade- 
cuadas. La impresora, mientras tan- 
to, parar6 al final de la linea en cur- 
so o al comienzo de la siguiente. 

Control de errores 

Si algo va muy mal mientras se es- 
t6 imprimiendo, el papel que se atas- 
ca u otra cosa iqualmente catastr6- 
fica, la tecla IMPR detendr6 la impre- 
sora casi inmediatamente. Comenza- 
r6 a imprimir de nuevo a una suave 
pulsaci6n de SAL. Para prevenir, in- 
cluso esto, no queda mds que poner 
la impresora <<off line>>, volverla a 
encender y aqui no ha pasado na- 
do. 
La funci6n que realiza este milagro 
es la 8, y se dispara medionte fS, que 
actOa como un interrultor si/no, en- 
cendido/apagado. 
Si, por Io que sea, tiene que cold- 
corse <<off-line, debe restaurar, m6s 
tarde, dos cosas: el estado <on-line> 
(f8) y la posibilidad de que la impre- 
sora reconozca las seales del orde- 
nador SAL. 
Ocasionalmente, se necesitar6 de- 
tener la impresi6n en medio de un 
documento, quizds porque se d 
cuenta de la existencia de un error. 
Esto no se puede hacer solamente 
con la tecla PTR; hay que recurrir a 
f7 (RESET), que tambidn sirve para 
resetear la impresora y Ilevar la ca- 
beza de impresi6n a su posici6n de 
<descanso>. 
El PCW fiene una caracferisfica 
muy avanzado, algo semeiante, de 
cara al usuario, a la mulfifarea: se 
puede imprimir un documenfo mien- 
fras ofro se est6 edifando en panfa- 
Ila (par edltar entendemos corre- 
gir y/o crear). El mend que controla 
esto se obtiene mediante fS, que do 
detalles del documento que se est6 
imprimiendo o nos informa que la im- 
presora no estd en uso. 
Un segundo prop6sito del mend 
fS> es permitir la reimpresi6n de to- 
do o parte del documento en curso, 
en el caso de que un error de cual- 
quier tipo hubiera ocurrido en el in- 
terin. 
$61o hay otra ocasi6n en la que se 
necesite retornar al modo de control 
de impresora, yes cuando la impre- 
sora se detiene y la linea de <status)) 
muestra la fase¢¢Esperando por pa- 
peb, aunque dicho papel se encuen- 
tre, de hecho, cargado. 
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Esto puede suceder si est6 usando 
papel continuo, pero no ha iniciali- 
zado los valores del menO controla- 
do por fl, de acuerdo a ello, o si se 
ha introducido el papel a manor>, 
en lugar de autom6ticamente. Pul- 
sando f2 y ENTER la impresora con- 
tinuar6 normalmente. 
AI usar hojas sueltas, la impresora 
se detiene al final de coda pdgina 
para permitir la inserci6n de una ho- 
ja nueva, cored cabria esperar. AI 
<<aparecer> una nueva hoja, auto- 
mdticamente se vuelve al modo de 
control de impresora, asi que, cuan- 
do est6 listo, pulse SAL para comen- 
zar la impresi6n en la nueva p6gina. 
Finalmente, una imagen (hard 
copy) de la pantalla aparecer6 en la 
impresora en cualquier momento si 
se pulsa a la vez EXTRA y IMPR. 
Siempre serd en olta calidad, y con 

un cierto aire de ¢negativo>, es de- 
cir, 6reas Ilenas de verde aparece- 
r6n en negro. Muchos fab.ricantes de 
impresoras sostienen que un uso exa- 
gerado de esta facilidad dafiar6 el 
cabezal de impresi6n; nosotros no 
sabemos nada de tales problemas 
con el PCW, pero un poco de pre- 
cauci6n nunca sobra: uso, pero no 
obuso. 
Lo mayoria de los comandos de 
Locoscript se pueden dar de diferen- 
tes maneras. Como es 16gico, la ma- 
hera rods rdpida es la que involucra 
mends pulsaciones de teclas. No obs- 
tante, es la rods propensa a error 
hasta que se ad.quiere un dominio 
mds que aceptable de la multitud de 
6rdenes del procesador de textos del 
PCW. En principio, el uso de mends 
es muy aconsejable, y no retrasard 
demasiado su trabajo. 



Paso Cualquier programa, 
incluso los protegidos, de cinta a 
disco o .e disco a cinta. Total 
seguridad de carga. Tel. (91) 
445 002 Preguntar porJuan, 
tardes. 

Se hacen programas de gesti6n 
a medida para usuarios de 
Amstrad PCW-8256: facturaci6n, 
clientes, proveedores, almac6n, 
etc. y aplicaciones enteras. 
Preferiblemente en la provincia de 
Asturias. Interesados Ilamar al Tel. 
(985)46 73 32. Preguntar por 
Angel. 

Vendo ZX Spectrum Plus, con su 
correspondiente transformador y 
cables para electricidad, TV y 
cassette, m6s dos manuales de 
referencia (uno en castellano) 
todo ello por 25.000 pts. Llamar 
al (976) 56 53 98 o escribir a 
Jes0s Ruiz Vela. C/Pedro Cuarto 
11 12-D 50009 (Zaragoza). 

Vndo los libros siguientes 
totalmente nuevos: <<M0sica y 
sonidos con Amstrad, de Jeremy 
Vine, por 800 pts. (en la calle 
cuesta 1.200). duegos 
sensacionales para Amstrad,, de 
J. Gregory, por 1.600 pts. 
Tambi6n cambio los nOmero 7 y 
32 de Microhobby Amstrad por 
cualquiera de los siguientes: 6, 10, 
13...20. Carlos F. Cano 
Lanzadera. C! A. S6inz de 
Baranda, 99. Tel. 273 00 18. 
28007 Madrid. 

Desearia intercambiar juegos 
Amstrad con usuarios de 
Barcelona o provincia. Me 
gustaria conseguir Copi6n a 
cambio de juegos. Ponerse en 
contacto con, Jos6 Francisco 
Izquierdo Moreno. Avda. San 
Esteban, 59, 4. °. O si Io desean, 
Ilamar al Tel. (91) 870 10 71. 

OPERA ION CAMBIO 

-- Valoramos tu 
AMSTRAD 464 FV en 45.000 Ptas. 
AMSTRAD 664 FV en 58.000 Ptas. 
en la compra de un nuevo ordenador. 

-- Se cambia monitor verde por 
monitor color nuevo 40.000 Ptas. 

TEL. (gl) 416 13 02 
$61o tardes 

MERCA COMPUTER 

Tienda n. ° 1 
en Amstrad 
TAMBIEN COMPATIBLE PC 
TODO A LOS MEJORES PRECIOS 
464 CPC FN .......... 50.999 
6128 F/ ............. 72.999 
8256 ................. 115.999 
MAS IVA 
Comandante Zorita, 13 Ifienda) 
Telf. 253 57 93. 28020 MADRID 

SERMA PONE L' ELOCI=A= E 

U MA 

,ti!I,,l, * EL UNICO JOYSTICK ,UE S 

ADAPT' PERFECTAMENTE A ' MANe DE JUGADOR. 
 ' UTILIZA EL MAS AVANZADO MICROSWITCH DE ORIGEN SUIZO 
APAZ DE SOPORTA" 10.000.000 DE MOVIMIENTOS 
GARANTIA DE 6 MESES 

P N.P.: 2.600 ptas. 

SERRR 

DISTRIBUIDO EN TODA EUROPA POR MICROPOOL OTRA EXCLUSIVA PARA ESPAA DE SERMA 
PIDELO A SERMA, C/. CARDENAL BELLUGA, 21. 28028 MADRID Tels: 256 21 01/02. 256 50 06/0.5/04 



. NVERTIDOR I'V 
• ' RA ' TRAD 

Conservando la misma linea sobria marcada por sus 5ltimos 
productos, MHT vuelve a sorprendernos con un nuevo 
perif#.rico que consigue un nuevo aprovechamiento de 
nuestro ordenador como TELEVISION. 

de que el Home- 
Computer rue tal, todas las marcas 
aprovecharon los televisores dom6s- 
ticos como saludable medida para la 
reducci6n de costos en el equipo. La 
Ilegada de Alan Sugar al terreno de 
la microinform6tica cambi6 total- 
mente las limitaciones establecidas 
hasta la fecha, incluyendo un moni- 
tor en el equipo a un precio altamen- 
te competitivo. 
Ahora MHT ha arremetido con ac- 
ci6n inversa: convertir el monitor del 
ordenadar en un televisor. A fin de 
cuentas, si hemos hecho una inver- 
si6n en un monitor, por qu6 no sa- 
carle todo el partido? 
El equipo consiste b6sicamente en 
una caja negra, perfectamente dise- 
ada para ser colocada debajo del 
monitor, con el conseguiente ahorro 
de espacio. Las 0nicas precauciones 
y mantenimiento necesario es no ex- 
poner el aparato al calor ni la humeo 
dad y desenchufarlo cuando no va- 
ya a ser utilizado durante algunos 
dias. 

Conex|6n 
del convertldor C- 10 

La conexi6n del equipo es muy 
sencilla y se realiza en menos de me- 
dio minuto. Para realizarla basta con 
enchufar el conector de cinco patas 
que sale del monitor al aparato, la 
antena a la toma trasera incorpora- 
da en el equipo y el enchufe del Col 0 
a la red. 
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Una vez realizadas las conexiones 
y activada la corriente habr6 que sin- 
tonizar el convertidor. El nOmero de 
presintonias que dispone es de 10, Io 
cual es m6s que suficiente si conside- 
ramos que a Io sumo necesitaremos 
cuatro: una para TV-1, otra para 
TV-2, otra para el canal auton6mi- 
co y una Oltima para el video, siem- 
prey cuando, naturalmente, dispon- 
gamos de 6ste. 
Para sintonizar estos canales bas- 
ta con girar los diales correspondien- 
tes, tal y como se realiza con cual- 
quier televisor dom6stico. Es obvio 

decir que, en el caso de disponer de 
vfdeo, no conectaremos la antena al 
¢-|0, sino que conectaremos 6sta al 
video y la salida del video directa- 
mente al convertidor. Por el diseo 
electr6nico interior es ms que reco- 
mendable utilizar el canal 8 para la 
reproducci6n de la sepal provenien- 
te de un video. 
Dado que el monitor del Amstrad 
no incorpora altavoz, el equipo dis- 
pone de uno interior, con una poten- 
cia sonora muy alta tanto en volu- 
men como en calidad. 
Para los m6s t6cnicos, el converti- 
dor trabaja bajo las normas del CCIR 
y sistema de color PAL disponiendo 
de tres bandas de frecuencia, I, III y 
UHF. En la salida de un video se dis- 
pone de una sepal normalizada tipo 
video compuesto con una amplitud 
de 1 V pp. Esta sepal se puede utili- 
zar tanto para reproducir como pa- 
ra grabar, para Io que bastar6 con 
cambiar el conmutador de modo, si- 
tuado en la parte trasera, a la posi- 
ci6n de salida. 
El conector tipo JACK que sale del 
monitor no es necesario conectarlo 
en ningOn sitio, as/que nadie se pre- 
gunte d6nde demonios ponerlo y 
mucho menos conectarlo a la toma 



dose una calidad y un volumen muy 
superior. Estos mismo conectores son 
indispensables cuando queramos rea- 
lizar una grabaci6n en video, a no ser 
que prescindamos del sonido y que- 
ramos grabar una pelicula muda. 
En resumen, la iniciativa de MHT 
de comercializar este, me atrevo a 
Ilamar, perif6rico, constituye una bri- 
Ilante idea ya que por un precio casi 
ridiculo, unas 20.000 pesetas, tene- 
mos la posibilidad de disfrutar de un 
televisor completo en color, o en f6s- 
ford verde claro. 

TECNICA$ 

-- Fabricanle: MHT Ingenieros 
- Dislribuidor: LS8, S. A. 
- Fecha de/anzamiento: 22/09/86 
- Salida RGB-Lineal 
-- Entrada y salida de video 
- Entrada y salida de audio 
- AmpJificador de sonido y altavoz incor- 
porado 
- PVP (aprox.): 22.00 + IVA 

lateral de 12 voltios que tiene el pro- 
pio monitor. 
La informaci6n visual que nos pro- 
porciona el aparato se basa en 
LEDS; dispone de seis indicadores en 
color rojo que informan sobre la si- 
tuaci6n del equipo, ON/OFF, ban- 
da elegida, canal seleccionado... El 
indicador de dial le da una orienta- 
ci6n de la zona de banda que est6 
sintonizando; si estuviese sintonizan- 
do la banda I y el piloto, que indica 
este dial, se encontrase m6s encen- 
dido significaria que se encuentra 
m6s cerca del canal 2. Y asi para ca- 
da una de las restantes sintonias. 
A parte de estos controles m6s o 
menDs sofisticados, el equipo dispo- 
ne de los cl6sicos que pueden encon- 
trarse en un televisor: brillo, contraso 
re, volumen y color. 
En la parte trasera, junto a la too 
ma de antena, se encuentran dos co- 
nexiones para la entrada y salida de 
audio, Io que nos permite conectar 
el equipo a un amplificador Iogr6n- 

SITUACION Y FUNCION DE LOS CONTROLES 

INOICAOOR DE 8A!OA I 
PRo    AM---CJ 

INDICAOOR OE PROGRAM"-.I SALIOA VOLUMEN I / R DE 
0 0 COtTASTE J 
8RILLO -- 

RED] 

ENTRAOA Y SAL&OA DE VIDEO J L 
ENTRADA Y SALIOA AUDIO- 
CONMUTADOR OE M, ODO 
ANTENA 

 CtOHO88r AMSTRAD 33 



Si estn agotados en tu tienda 
habitual i iLLAMANOS!! 
Si deseas informaci6n y participar en los 
importantes sorteos clue ZAFICHIP celebrai 
duant el afio.., iESCRIBENOS! 

ZAFIRO SOFTWARE DIVISION 
Paseo de la Castellana, 141. 28046 Madrid 
Tel. 459 30 04. Tel. Barna. 209 33 65. T61ex: 22690 ZAFIR E 

Editado, fabricado y distrbUldO en Espana 
bajo la garantia Zaflro. Todos los derechos 
reservado$. 
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VeRE'$'. ' ' expan  6nde ' 
- ,l:lOt,l , memorla, 

ta es la Placa VR*FEX SP-512, capaz por 
• sola de transformar tu ya conocido y dominado 
' STRAO 464 en un prodigio: 512 K de 
t..oria, que multiplican basra el vgo las 
,osoidades de tu ordenador, gracias al sistema 
o,, atvo VORTEX V-OOS incluido en la ROM. 

kude con tu AIvSTRAI 464 a uno de los 
Servicios espec!d, izados VORTEX, 
Una sencilla operaci6n y la Placa 
VORTEX queda 
instalada. Se ha realizado _ _ 
la nsf orrnacid • , . 

que te #eva a una nueva ran era, 
Pasa a "RAM EXPANSION'I 
/.Ests preparado? 

COMUT 



La Placa VORTEX SP-512 
te abren nuevo mundode 
posibilidades de uso de tu 
ordenador. 
Su instalacin en el AMSTRAD 
464 se realiza en los Servicios 
especiali adds VORTEX, 
quedando bajo la garan'a 
PROTOMEC. 

Ahora, , 
carga atu Amstrad 
basra 2 Megas,,' 

Con los Sistemas 
Operatvos y las UnFdades de Disco 
VORTEX V.DOS ests en condiciones, no s61o 
de preparar y desarrollar programas 
m6s largos y complejos, sino de utlizar, de 
verdad, hasta 2 MEGAS de datos. 
El sistema operaUvo VORTEX V-DOS te Io 
permite. Es tan potente que, por ejemplo, 
puedes a;ceder a 16 ficheros directos, 
ademds de dos secuenciales. 
Ficheros Datos y Programas, Bases de 
Do... Para d, servicio a esta capacidad de 

SERVICIOS VORTEX 
ALAVA 
DATAVI 
Aa, Geiz, ).9 
Vitorla 
ALICANTE 
AUDIO. COLOR 
Avda, Maisonnave. 17 
AVILA 
COMERCIAL ROCHA, S. A. 
Cf Arvalo, 2 
BOAJOZ 
DONCEL 
Cf Hem:n Cortes, 3 
DISTELEC 
Ct A,el Gulrner, 23 
a de Mallorca 
BARCELONA 
SVI DELEGACION CATALUIIA 
Avcla. Pau ClaMs. 165, Rso 3P 
BURGO$ 
E.I,A, 
C! Madrid, 4 

CADIZ 
MECANOGRAFIA GADITANA 
CI Rosario, 2 
RANADA 
TECNICAS INFORITICAS 
APLICADAS 
Raza Santo CrLsto, 3  S 
GUIPUZCOA " '. 
SOFT 
CI Cuesca de Alda. la. n. 
San Sebastian 
DONOSTI COHPUCARD 
Aa, de la Zurdola, 22 bls 
IAEN 
OFIMATICA JAEN. 
Pasaje Maza, 7 
LA CORUA 
LOGICAR 
Urbanizaci6n Galicia, 123 
Samoedo - Sada 
LOGROIO 
EGUIZABAL Cl Doctores 
Castro Viejo, 34 C 

almacenamiento y de ampliaci6n operatva, 
estdn los Sistemas OperatJvos y las Unidads 
de Disco VORTEX V-DOS, listos para ser 
cone tados a Id AMSTRAD 464, 664y 6128. 
Acude a un Servicio VORTEX y descubre 
Iclnueva frontera de tu AMSTRAD. 

Infrmate en VORTEX, Tel. (91) 675 75 99 
-Avda, de la ConsUtucin, 260, 
Torrejn de Ardoz. MADRID. 
0 en cualquiera de los Servicios especializados 
VORTEX. 

IqADRIO SALAMANCA 
MICRO WORLD QUINTA AVENIDA 
C/Fernandez de la Hoz, 46 Ct Espaa. 79 
• .HALAGA AN ACRU ,E N:I: " 
MANIN INFORHATICA EQUINTESA 
Paseo Marldmo "Ciudad de C/n Sebti, 74 
Melilta", 25 SANTANDER 
Piso II, Departamento C INSUMES 
NAVARRA Centro Comercial 
MICRO. HOBBY C/Juan Ceballo, 9, bajo 
Cl Aralar, 40 Torrelavega 
Parra SEV/LLA 
PALENCIA MICROTIENDA I 
LA ESFERA CI Aceituno, 8 
Ct Mayor PdnclpaL 87 

SPECIAL iNTERES 
DE E ..,, , n= IFORHATICA 
RAAULa  "' 
 ACADEMIAS Y COLEGIOS, 

VIZCAYA 
CHIP & TIPS 
Alameda de Urqurlo, 6] 
TOLEDO Bilbao 
HOBBYLANDIA "' ZAMORA 
C/Fuenlabda, s/n. VIDEO IHAGEN 21 
Pdigono Indusvbl C/San Torcuato, 21 
VALLADOLID ZARAGOZA 
CHIPS & TIPS DAJOL 
Raza de Tenets, II Ct Cvas. 31 

, i m mm m m 
 I m mm m 
u m mm m m m 
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